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4 N uu 
Amplía tu memoria... 


iiMENUDO CAMBIO! 


yllévate un 


Tráenos tu 


SPECTRUM 


Renuévate con 
INVESTRONICA. 


Ahora INVESTRONICA te da 

la oportunidad de hacerte con el 
microordenador más moderno 
del mercado: EL SPECTRUM 
PLUS. 

Sólo tendrás que entregarnos tu 
ZX SPECTRUM... 

„Ло demás será visto y no visto, 
el Spectrum Plus ya es tuyo. 
Tener un ordenador Sinclair es 
la garantía de estar siempre a 
la última. 


(7) 18000 різ si es de 16 K 


Apúntate a lo más 
nuevo. 


El Spectrum Plus es lo más 
nuevo del mercado. Si tu 
Spectrum es estupendo; el Plus 
es fabuloso. Podrás disfrutar de 
un teclado profesional; 

17 teclas más que el Spectrum, 
es decir 17 ventajas más... y 
por supuesto lo podrás utilizar 
con todos los programas y 
periféricos que ya tienes, puesto 
que el SPECTRUM PLUS es 
totalmente compatible con todo 
el software y accesorios del 
spectrum. Además 
INVESTRONICA, al realizar el 
cambio, te da de nuevo 

6 meses de garanfía, 

una nueva cassette de 
demostración y un libro de 
instrucciones a todo color. 


No le lo pienses... cámbiate a lo 
ültimo, tienes las de ganar. 


SPECTRUM PLUS 


Tenerlo, muy fácil 


Manda tu ZX Spectrum 

(sin cables, ni fuente de 
alimentación) o tu Servicio 
Técnico Oficial 

(HISSA) más cercano, bien 
personalmente o por agencia de 
transportes (los gastos son por 
cuenta de INVESTRONICA) y en 
48 horas ya podrás disfrutar de 
tu nuevo Spectrum Plus. 

Sólo tienes que abonar (contra 
reembolso) 12.000 Pts. (7) 
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AÑO I e NUMERO 


AMPLIA TU MEMORIA... A 48K. 
Conoce las interioridades de tu Spectrum 
y la forma de expandir su memoria. 


ARQUITECTURA: ANALIZAMOS 
EL PREYME. Programa de 
Presupuestos y Mediciones, para utilizar 
tu ordenador profesionalmente. 


JUEGOS. FUTBOL AMERICANO Y 
MANAGER. Dos buenos programas 
para divertirse con el balón o jugar a 
empresario. 


FORTH. Nociones básicas para utilizar programas que utilizan este lenguaje. E 


Si tuviésemos 
diriamos que es! 


campaña 
productos. 


Hasta 


te es el mes del 


contrasta sin em! 
sobre este ordena 
de imagen 1 

A él dedicamos las 


abondonar a nu 
ello el próximo número. 


UNA CLAVE, PLEASE. Una pequeña 
rutina en código máquina para proteger 
el acceso de “curiosos”. 


QL MAGAZINE. Suplemento especial 
para conocer a fondo lo último de 
Sinclair. 


AULA INFORMATICA CON 
SPECTRUM. Claves para la 
introducción eficiente de la informática 
en las escuelas. 


PROGRAMAS. Monopoly, mecánica y 

archivo, tres programas laaaaaargos para 
aprovechar mejor las posibilidades de su 
Spectrum. 


GUSANEZ. Las aventuras y desventuras 
de nuestra mascota, esta vez por partida 
doble. 


PREGUNTAS Y RESPUESTAS. 


EL CORCHO. 


ificar este mes de 
que califica: es 
¡bargo con el desconocimiento 
dor, lo que dice b ШЕ 
que Sinclair impri 


estro querido Spectrum. 


alguna forma, 
n expectación 
que existe 

de la buena 
bastante todos sus 


páginas centrales, sin por 


š — н Al bloque de memoria acceden el 

іе EN SW qu š bus de direcciones (address bus), el bus 

: w Xs de datos (data bus) y las señales de 

À control que son WR (escritura), RD 

qz WI Em RI № (lectura), y MREQ (requerimiento de 
- memoria). 

El número de bits del bus de direc- 
ciones nos dará el espacio máximo 
direccionable. es decir, el número 
máximo de bytes a los que podemos 
acceder. El Spectrum es un ordena- 
dor desarrollado a partir de un mi- 
croprocesador muy popular (y eco- 
nómico): el Z-80; que posee un bus 
de direcciones de 16 bits. Podremos 
por tanto direccionar 21% = 65.536 
bytes. Complicando tanto al software 
como al hardware se puede conseguir 
direccionar mayor cantidad de me- 
moria a partir del Z-80, formando di- 
ferentes «páginas» de 64 Kbytes cada 
una, pero este no es el caso del Spec- 
trum. 

Los 64 Kbytes de espacio direccio- 
nable se dividen en dos grupos muy 
bien diferenciados: los primeros 16 
Kbytes están ocupados por memoria 
de sólo lectura (ROM) y los 48 Kby- 
tes restantes por memoria de lectura 
y escritura, conocida normalmente 
con el nombre de RAM, aunque la 
denominación no es muy correcta. 


RAM es la abreviatura inglesa de 


AIVIPLIATU IVIEIVIORIA... A 


La caída de precios de los últimos meses ha hecho que la Random Access Memory que significa 
mayor parte de los usuarios disfruten del Spectrum de o Бозу Son 


48'К. Pero по fue este el caso de los «pioneros» Sinclair, P Т рее Ç 


quienes a duras penas pudieron acceder al Spectrum 16 К, de una manera directa, siendo el 


y que ahora se encuentran discriminados ante el tiempo de acceso independiente de 
abundante software existente para cl 48 K, demasiado la posición de la palabra a acceder. 
«largos» para su reducida memoria. Por el contrario existen memorias de 

. acceso secuencial, еп las que рага ас- 
Afortunadamente este problema ya no es problema si se cedet a una рабро HU N e 
puede y sabe efectuar la ampliación de memoria sar antes por todas las anteriores. La 
correspondiente. idea es similar a la diferencia entre el 


disco y la cinta de cassette: en el disco 
no hace falta rebobinar, se accede di- 


rectamente. Según lo anterior la 
um ROM también es RAM aunque a lo 


largo del artículo se utilizará este tér- 


э 5ЕЕС, MREQ RD WRnoactivado 
control F 22 2» s pos 
de. ю z| 5 = direccionada 
memoria H * --- s u 11304. 
ME ESR direc- = 
БЕ: т ` ¡ciones = ЎА. 
= +| procesador 2 о 
= te 2-80 = < 
= = 8 [s] 
кат 8 Hs 
а ia š "е 
АЙ > Š a 
RED "e s | bus u 
JE = | de 5 
AU i m OPERACION DE LECT, 
= A15 EN MEMORIA 
а 


mino соп su significado usual, es de- 
cir, como memoria de lectura y escri- 
tura. 

Este segundo bloque sólo tiene 16 
Kbytes en el Spectrum «pequeno», 
por lo que habrá que incrementarlo 
en 32 Kbytes para conseguir el 
mayor. 

Еп el bloque de sólo lectura se al- 
macenan los programas que permi- 
ten al Spectrum empezara funcionar 
nada más dar tensión a sus circuitos, 
tales como las rutinas de grabación, 


lectura: un byte será puesto en el bus 
de datos; o una operación de escritu- 
ra; el contenido del Риз de datos será 
almacenado en una palabra de me- 
moria. Operaciones que se encuen- 
tran controladas por tres señales, las 
tres activas a nivel bajo: 

MREQ (memory request) que valida 
el contenido del bus de direcciones, e 
indica que se trata de una operación 
de memoria, no de entrada o salida 
desde un periférico. También inter- 
viene en el «refresco» de los 32 Kby- 


48 


las de impresión de caracteres en 
pantalla, el intérprete de BASIC, etc. 
Así por ejemplo la dirección 2000 
h., @ decimal es la apuntada por el 
microprocesador tras producirse un 
reset; o la dirección @385 h, 949 de- 
cimal es la de comienzo de la rutina 
de sonido. 

En el segundo bloque se incluyen 
las variables del sistema, el fichero de 
pantalla, los mapas de Microdrive, los 
gráficos definidos por el usuario, etc, 
y además los programas tanto en BA- 
SIC como en código máquina. 

Una vez direccionada la memoria, 
se podrá realizar una operación de 


tes ültimos de memoria en el caso del 
Spectrum. 

RD (read) que indica а la memoria 
оа cualquier dispositivo de entrada o 
salida, que el Z-80 quiere leer un dato 
que deberá ser puesto en el bus de da- 
tos. 

WR (write) que indica que el conte- 
nido del bus de datos debe ser alma- 
cenado por la memoria o por cual- 
quier otro periférico. 


Realización práctica 


Primero hay que conseguir los cir- 


cuitos integrados necesarios que, о 
bien se pueden adquirir sueltos (lo 
que a veces no es muy fácil en el mer- 
cado español) en tiendas de compo- 
nentes electrónicos, o en forma de 
kit. 

Los multiplexores son 2 intregra- 
dos 74 LS 157, las puertas NAND se 
encuentran еп el integrado 74 LS 00 
y las OR en el 74 LS 32. En cuanto a 
las memorias, ya sabemos que se tra- 
ta de 8 integrados TMS 4532 L3 u 
ocho integrados TMS 4532 L4, todos 
de la misma clase. La ampliacio n no 
se podrá realizar si se mezclan ambos 
tipos. 

Para instalarlos se extraen los 5 tor- 
nillos que unen la carcasa yel teclado 
del ordenador. Para ello hay que vol- 
ver el Spectrum boca abajo. 

Una vez extraidos se vuelve el or- 
denadora su posición normal y se re- 
tira el teclado suavemente, sin tiro- 
nes, para no dañar los conectores que 
son muy delicados. 

Después se afloja el tomillo pe- 
queño que se encuentra en el medio 
de la placa de circuito impreso y se 
extrae éste. А continuación se afloja 
otro tornillo que encima del regula- 
dor de tensión sujeta al refrigerante a 
la placa de circuito impreso. Una vez 
quitado el refrigerante queda total- 
mente al descubierto la zona de am- 
pliación de memoria. 

La operación anterior correspon- 
de al caso de la versión 3B (ISSUE 
3B). Si el Spectrum es de la versión 2 
(ISSUE 2) no es necesario retirar el 
circuito impreso ni el refrigerante. 

Ahora se realizan los puentes. En 
la versión 3B hay que unir los puntos 


marcados сото «ТІ» por un lado y 
los marcados como «3» por otro, si la 
RAM es de código TMS 4532 L3; y 
los puntos «Tl» y «4» si el código es 
TMS 4532 L4. 

Para el ISSUE 2 hay que realizar 
un solo puente entre el punto marca- 
do por LINK y 0 voltios si la RAM es 
de la versión TMS 4532 L3; o entre 
LINK y 5 voltios si el código de los 
chips es TMS 4532 L4. 

À continuación se insertan los in- 
tegrados, quedando la expansión to- 
talmente realizada. 


Memorias estáticas y dinámicas 
de lectura y escritura 


Las memorias estáticas son aque- 
llas que almacenan información sólo 
con que los circuitos estén alimenta- 
dos y los accesos de la información 
sean correctos. Se encuentran forma- 
das por biestables y ocupan un área 
muy grande en el proceso de integ 
ción. 

Las memorias dinámicas poseen 
menos transistores por bit almacena- 
do, y ocupan menos área en el chip, 
permitiendo memorias más grandes, 
más baratas y que consumen menos 
potencia. Pero tienen una desagrada- 
ble desventaja: olvidan. Es necesario 
proceder a su refresco cada un cierto 
tiempo. No están formadas por bies- 
tables y mantienen la información 
gracias a las capacidades (parásitas 
para otro tipo de aplicaciones) que 
aparecen en los transistores MOS. 
En el caso de las memorias, la capaci- 
dad cargada almacena un 1, y descar- 
gada un 0. Aunque el aislamiento es 
muy grande, siempre hay pequeñas 
corrientes de fugas que descargan es- 
tas capacidades, y por «Шо la infor- 
mación se pierde si no hay refresca- 
do. 

El tipo de tecnologia utilizada: 
MOS o bipolar condiciona el tiempo 
de acceso, el precio y la capacidad. 
Las memorias bipolares son muy rá- 
pidas pero caras y de pequeña capaci- 
dad. Las MOS son más lentas, bara- 
tas y de mayor capacidad. Las memo- 
rias de lectura y escritura empleadas 
en el Spectrum son dinámicas y de 


tecnología MOS. 


La memoria ROM 


Bajo este nombre genérico se agru- 


El dia 
que hice 
la ampliación 


Quienes sabiendo muy poco acer- 
ca del «mundillo» de los microorde- 
nadores o por razones económicas 
optamos por comprar un Spectrum 
de 16 Kbytes de memoria. RAM, 
pronto nos encontramos con la desa- 
gradable sorpresa de que la mayoría 
del software comercializado y prácti- 
camente todos los programas de jue- 
gos de alta calidad, no podía ser car- 
gado еп el ordenador: necesitaba- 


Chips ampliación 
memora TMS 4532 
(L3/ L4) 


Cuatro chips 
de control 
de memoria. 


Regulador 
de tensión. 


mos un Spectrum de 48 Kbytes. 

Efectivamente, con 16 Kbytes de 
memoria (16 * 1024 bytes; 1 Kbyte 
1024 bytes) el Spectrum sólo puede al- 
macenar programas muy cortos, ade- 
más no podemos utilizar integra- 
mente esa capacidad de memoria, 
parte de ella reservada para funcio- 
nes internas del propio sistema, co- 
mo el fichero ded representación vi- 
sual, los atributos y las variables del 
sistema entre otras. Nos quedan en- 
tonces aproximadamente 8 Kbytes de 
memoria utilizables directamente, lo 
que para una gran parte de aplicacio- 
nes es demasiado poco. 

Existen técnicas especiales con las 
que se consigue mayor capacidad de 
memoria. Sabía de la existencia de al- 
gunos copiadores que conviven si- 


multáneamente con el programa que 
уа а ser duplicado aunque este осире 
el máximo de memoria posible. Este 
tipo de programas se ubican en el fi- 
chero de representación visual ha- 
ciendose transparente en la pantalla 
del monitor, pero inutilizándola par- 
cialmente, según me habían dicho. 

Es evidente que esta clase de técni- 
cas sólo son utilizadas por el progra- 


mador experimentado, que com- 


prende con mayor fuerza que el neó- 
fito los inconvenientes que origina 
una memoria de corta longitud. 

Planteadoel problema me pregun- 
té cómo incrementar esa memoria en 
los 32 Kbytes necesarios para conse- 
guir las prestaciones de su hermano 
mayor: el Spectrum de 48 Kbytes. Así 
que me informé. 

En principio uno y otro modelo 
tienen como ünica diferencia una se- 
rie de circuitos integrados que en la 
versión de 48 Kbytes se encuentran 
soldados en la placa de circuito im- 
preso, y en-la versión de 16 Kbytes se 
encuentran los zócalos pero no los 
circuitos integrados. 

Armado con esta información, pu- 
de conseguir los circuitos integrados 
necesarios, y los conecté tomando 


como modelo ип Spectrum Че 48 
Kbytes de la misma versión (ISSUE 3- 
B) que el mío de 16 Kbytes. Después 
de colocarlos integrados alimenté el 
ordenador y sorprendentemente no 
funcionaba. En la pantalla del televi- 
sor correctamente sintonizado no 
aparecía el mensaje de copyright de 
Sinclair; muy al contrario, el Spec- 
trum no enviaba ningún tipo de se- 
ial que el receptor de televisión pu- 
diera visualizar. 

Con gran temor de haber averiado 
la circuitería del Spectrum desconec- 
té los integrados que antes había in- 
sertado y alimenté de nuevo el orde- 
nador. Todo funcionaba normal- 
mente. 

Después de esta nefasta experien- 


cia decidi llevar el Spectrum a una 
tienda especializada del ramo, donde 
después de intentarlo, me confirma- 
ron que el ordenador no admitía la 
ampliación interna, y me aconseja- 
ron que, o bien adquiría una amplia- 
ción externa, o lo ponía en manos del 
servicio de reparación de Investróni- 
ca. 

Decidido a tener un Spectrum sin 
ampliación externa ya que había vis- 
to con mis propios ojos el «hueco» 
que tenía el circuito impreso para la 
ampliación interna, me decidí por 
enviarlo al servicio de reparaciones 
de Investrónica. 

Por fin y después de abonar 9.975 
pts. consegui tener mi Spectrum am- 
pliado a 48 Kbytes de memoria RAM. 


Vista parcial issue 2, destacando la ampliación. 


Refrigerante del regulador 
de tensión 


TMS 4532 (L3/L4) 


Más adelante descubrí que la posi- 
ble causa de que no funcionase el or- 
denador con la ampliación realizada 
por mi mismo, podría estar en una 
serie de puentes que hay que realizar 
en la versión pequeña para convertir- 
la en la de 48 Kbytes. 

Sin embargo à aquellos que no 
tengáis una mínima experiencia en el 
ensamblado de circuitos electróni- 
cos, os aconsejo no realizar la am- 
pliación con vuestras propias manos 
y, aunque «ез un poco más caro con- 
fiar la operación a cualquier tienda 
especializada, o al propio servicio de 
reparaciones de Investrónica. 


r Sánchez 


Ja 


Puentes issue ЗВ para el modelo de memoria TMS 4532 (1.3). 


control de la memoria 


Issue 3B sin retirar el refrigerante del regulador de tensión. 


рап tres clases de memorias cuyo 
contenido es inalterable para el pro- 
gramador: 

ROM propiamente dicha.- Su 
contenido es completamente inalte- 
rable desde la fabricación del chip. 

PROM.- Su contenido se progra- 
ma una vez y después permanece 
inalterable. Las modificaciones reali- 
zadas en la grabación son destructi- 
vas. 

RPROM.- Son de tecnología 
MOS y su contenido se puede рго- 
gramar y permanecer inalterable pa- 
ra el programador que maneja el or- 
denador. Pero pueden volver a ser 
puestas en blanco y reprogramadas. 
El proceso de grabación no es des- 
tructivo. 

Cualquier usuario con suficientes 
conocimientos puede cambiar la 
ROM del Spectrum por una PROM 
ouna RPROM e intentar corregir, en 
el nuevo chip, los defectos de progra- 
mación, de algunas rutinas del dise- 
йо original de Sinclair. 


Como funciona la expansión 


Las memorias de 32 Kbytes utiliza- 
das en la ampliación son la TMS 
4532 L3 o la TMS 4532 L4. Cada 
chip tiene 16 pines y almacena el 
contenido de un solo bit en cada po- 
sición direccionable. Por lo tanto se 
necesitan 8 circuitos integrados para 
almacenar 1 byte. 

Si el bus de direcciones es de 16 bits 
y hay 16 terminales en cada chip da 
la impresión de que no hay suficien- 
tes pines para las señales de control 
de memoria, así como para la ali- 


mentación. “Еп realidad sólo 8 de 
esos 16 terminales están dedicados a 
la selección de la dirección. Los 16 
bits se introducen multiplexados en 
2 grupos de 8 bits, de tal manera que 
primero se introducen los 7 bits co- 
respondientes al direccionamiento 


de una fila de la memoria, y después . 


los correspondientes a una columna. 
Dos grupos de 8 bits suponen 16 en 
total y sin embargo sólo son necesa- 
rios 15(8 +7), por lo tanto sobra uno. 
Este bit, A(15), se pone a 0 oa 1 en 
función del integrado que hayamos 
adquirido, realizando, mediante tro- 
zos de hilo conductor, unos puentes 
en el circuito impreso del Spectrum. 

Si tenemos el TMS 4532 L3 se de- 


Si no domina el ensam- 
blado de circuitos elec- 
trónicos, mejor déjeselo 
a un especialista. 


be poner a 0, y en el caso del TMS 
4532 L4 debe de estara 1. Para enten- 
der el funcionamiento basta seguir el 
esquema del circuito y el cronogra- 
ma de una operación de memoria. 
Primeramente el microprocesador 
coloca en el bus de direcciones la po- 
sición del byte a seleccionar. Si se tra- 
ta de una dirección perteneciente a 
los 32 Kbytes últimos de memoria, es 


decir, una dirección de la amplia- 
ción, A(15) se pone a nivel alto. Si- 
multáneamente MREQ, RD, y WR 
están también a 1. A la salida de P5 
aparece también un 1 con lo que los 
pines S (selección) de los circuitos in- 
tegrados IC 26 y IC 25 que son multi- 
plexores (computadores electrónicos 
digitales), están también a nivel alto. 
Estos circuitos presentan a la salida 
(referencia Y) lo que se encuentra en 
las entradas marcadas por А si S está a 
0, o lo que haya en las entradas de re- 
ferencia В si $ está a nivel alto. Apa- 
recen entonces a la salida de los mul- 
tiplexores los bits А0, А1, А2, АЗ, 
A4, A5 y A6 correspondientes a la se- 
lección de una dirección de fila en la 
memoria. 


Con medio ciclo de reloj de retar- 
do зе activan MREQ y, si sc trata de 
una operación de lectura también 
RD (pasan a nivel bajo). WR conti- 
núa a 1 y por lo tanto en la entrada 
WR de las memorias existirá ese mis- 
mo nivel indicando una operación 
de lectura. La señal a la salida de P4 
cambia a nivel bajo unos 20 ns. des- 
pués, y aproximadamente 10 ns. an- 
tes ya se había activado la entrada 
RAS a través de P2. La activación de 
RAS (row address sirobe — permiso de 
dirección de fila), valida lo que hay 
en las entradas A0, A1, A2, A3, A4, 
А5, Абу A7 de los chips dela RAM 
como la dirección de una fila de me- 
moria. El pin S de los multiplexores 
tarda más en cambiar de estado debi- 
do al retardo de aproximadamente 
35 nanosegundos, introducido por 
A71-C63, P2 y P5, a partir de la acti- 
vación de MREQ y RD. 
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NOMENCLATURA DE PIN 


AGAT Eniradas de 


Permiso de dirección de columna 
Entrada de datos. 
No conectado. 
Salida de datos. 
Permiso de dirección de fila, 
Habilitación de escritura. 


7%1532 


ID Cronograma de una operación de memoria. 


Descripción de patillaje de 
los integrados de la RAM. 


Descripción de 
patillaje. 741500 741532 


El tiempo que transcurre entre la 
activación deRAS Y SO A 0 de 
8 es suficiente para la entrada de la 
dirección de la fila 

Con otro retardo de unos 35 ns. y a 
través de P6, se produce la activación 
de CAS (column address strobe = per- 


PERIFERICOS 


* INTERFACE CENTRONICS + 
Software Copy-Color (Novedad) 
* LAPIZ OPTICO + 
Software completo (Novedad) 
* INTERFACE MONITOR 
B/N y Color. Video compuesto 
* MONITOR TM80 
Fósforo verde antirreflectante 


miso de dirección de columna) que 
valida el contenido de las entradas 
como la dirección de una columna 
Recordemos que el terminal S de 
multip s habían pasado а 

lo que en las salidas de estos integra- 
dos se encontraban los bits 


А9, А10, A11, A12, A13 у А14 de la 
dirección 

Realmente las entradas de las di- 
recciones de las filas y de las colum- 
nas en la memoria se producen con 
el flanco de bajada de las correspon- 
dientes señales de control, porlo que 


GESTION 


* CONTEXT V.7 


Procesador de textos 4.000,— 
* CONTEXT V.8 

Versión en catalán 4.000,— 
° SLT.L V.2 

Base de datos con cálculos 4.000, — 
* COPY RS-232 

Impresoras tipo Admate 2.500,— 
* CONTABILIDAD PEQ. NEGOCIO 

Novedad PIN 3.000,— 


ATENDEREMOS GRATUITAMENTE SUS CONSULTAS 


SOMOS LOS AUTORES 


tiempos muy pequeños son suficien- 
tes para que se produzca la transfe- 
rencia de bits. 

La operación de escritura es simi- 
lar, y el lector con conocimientos 
medianos de electrónica digital la 
podrá seguir а través del esquema 
ayudándose con el cronograma antes 
mencionado. 

Activando la señal RAS se consi- 


gue el refrescado de las 128 direccio- 
nes de fila, es decir, proporciona la 
regeneración de todos los bits en ca- 
da una de las filas. El refrescado se 
debe hacer al menos una vez cada 2 
ms., y mientras se está realizando se 
anula cualquier salida. El Spectrum 
produce esta operación cada vez que 
se activa MREQ, a través de P2, que 
actúa como bufjer de la entrada RAS. 


Para comprobar que la ampliación 
ha sido bien instalada basta con te- 
clear PRINT PEEK 23733 y pulsar 
ENTER. Si la operación ha sido co- 
rrecta aparecerá en la pantalla el nú- 
mero 255. Si aparece un 127 el orde- 
nador está trabajando con 16 Kbytes 
de RAM y la expansión no ha sido 
realizada con éxito. Realmente lo 
que hacemos es comprobar el conte- 
nido del byte de mayor peso de la уа- 


riable P-RAM, en donde se almacena 
la dirección del último octeto de la 
ЗВ ЗА 4B 4A 28 2A 1A memoria física. 
ЕН 4 -/- 5 
d'a M duum Dn Рог último queda por comentar 
9 r> + á ` que se puede realizar la ampliación 
Pad Kasus ры (ба уп a ШТІ 2 соп КАМ5 е 64 Kbytes utilizando 
Í pili sólo la mitad de su posibilidad de al- 
Lans 1. Ü ; macenamiento. Para ello hay que re- 
J " 2 planificar algunos puentes o cone 
xiones, y sólo deben intentarlo aque- 
llos que sean bastante expertos en 
n i electrónica. RAMs de 64 Kbytes váli- 
® 1y Y © dos son la TMS 4564 y la TMS 4164 
que probablemente sean más fácil de 
conseguir quelos mencionados ante- 
riormente. 
Descripción interna y patillaje del multiplexor 7415175. 
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Esquema de la expansión de memoria 


Zona de puentes ampliada issue 3B 


DOS GRANDES JUEGOS ЕМ CODIGO 
CON MAQUINA OPCION DE JOYSTICK 


PILOTANDO UN 
HELICOPTERO, TENDRA QUE DIRIGIR 
EL EQUIPO DE RESCATE PARA 
SALVAR A LOS ABANDONADOS 
EN UN CAMPO PETRO o 

DE UNA MUERTE SE 

DESTRUIR 

S Y SUS 5 

ORMA DE SALVAR 
LA INVASION, 


ALIENIG 
ES LA ОМ! 
LA TIERRA 


MUESTRA LOS 
MISTERIOS DEL 
RAPIDO CAMBIO DE 


MAR 
5 ANIMADOS 
)NOZCA MAS А 


FONDO LAS POSIBILIDADES 
DE SU ORDENADOR. 


J 
BIENVENIDO A 


L B 


CHOPPER 
TWIDDLER 
SHOOT 
HANGOUT 
TOMATOES 
CARTOON 
CONVEYOR 
TALLER 
CONVOY 
LIGHTBIKE 
LA TUMBA DE ELLAK 


REYME ев, sin duda, una 
Р“ las aplicaciones еп mi- 

crodrive más serias que he- 
mos podido encontrar para el 
Spectrum de 48 Kbytes (iseguro 
que no la última!), especialmente 
para el campo de la arquitectura, 
campo generalmente ocupado por 
ordenadores mayores y periféricos 
especiales como los plotters o “tra- 
zadores”. En suma, aplicaciones 
generalmente caras. Este programa 
permite realizar este mismo traba- 
jo, con las lógicas limitaciones de 
las 48 Kbytes de memoria. 

Destaca en primer lugar su cui- 
dada documentación. Un buen 
manual con el que “enfrentarse” a 
los cuatro microdrives que inte- 
gran el paquete. Los programas es- 
tán grabados en el microdrive 
PREYME, al que se le suman los 
de UNITARIOS, DESCOM- 
PUESTOS Y OBRAS. Es decir, un 
cartucho para los programas y tres 
para archivos de datos, a utilizar 
según las opciones que se requie- 
ran, teniendo en cuenta que en 


ocasiones se necesitará trabajar si- 
multáneamente con dos cartuchos, 
por lo que necesitará contar — 
además del interface 1— con dos 
unidades de microdrive. 

Para aprovechar mejor la me- 
moria, PREYME es en realidad un pa- 
quete integrado de cuatro progra- 
mas distintos (Unitarios, Descom- 
puestos, Obra y Varios), desde los cua- 
les se accede a los datos grabados en 
los archivos antes mencionados. 

El programa Unitarios maneja 
fundamentalmente el archivo de 
unitarios, pudiendo acceder al de 
Obra cuando lo necesita. El pro- 
grama Descompuestos utiliza el 
archivo de unitarios para la forma- 
ción de descompuestos o el de 
obra, para ver los descompuestos 
que intervienen en una obra deter- 
minda. El programa Obra realiza 
el presupuesto de la obra. Y, final- 
mente, el programa Varios realiza 
diversas funciones como la inicia- 
lización del cartucho, visualiza- 
ción de la memoria disponible y 
copia de seguridad. 


La figura 1 muestra estas cuatro 
opciones, tal y como salen en pan- 
talla tras la operación de carga del 
programa. El programa se sitúa au- 
tomáticamente en el bloque terce- 
ro (Obra), como puede verse por el 
fondo de color oscuro que identifi- 
ca el bloque de programa cargado 
en memoria. Después se pide el 
código referente a la opción a utili- 
zar. 

Antes de elegir opción fíjese en 
la información que ofrecen las dos 
ültimas columnas. Ya que no se 
puede contener toda esta informa- 
ción en memoria y se trabaja con 
dos microdrives simultáneamente, 
las dos ültimas columnas informan 
de los cartuchos que habrán de es- 
tar presentes en el 1 y en el 2. Es 
inevitable el intercambio conti- 
nuado, pero al menos se informa 
adecuadamente, aunque al princi- 
pio siempre cometerá algün error. 
(Si este es su caso, ejecute 
GOTO 1, con lo que le aparecerá 
un mensaje de error, pasando des- 
pués al menú.) Veamos resumida- 


pet ONE URA 


PRE YIVIE: 


Presupuestos 
у mediciones 


Si usted es arquitecto o aficionado a la arquitectura, más de una vez 
habrá tenido que hacer un presupuesto, es decir, pasarse toda la noche 
calculando y escribiendo en su vieja máquina de escribir para poderlo 


presentar a tiempo... 


İY sin errores! Si а su afición por la arquitectura se 


une un interés por la informática y posee un Spectrum, sus noches en vela 


mente los cuatro bloques en que 
se divide el programa. 


Unitario 


El fichero puede contener hasta 
32 capítulos con 32 unitarios cada 
uno, 1.024 en total. Cada unitario 
está definido por el número de ca- 
pítulo y el orden dentro de dicho 
capítulo, cuatro cifras que lo refe- 
rencian para llamadas posteriores 
desde los descompuestos. El nú- 
mero máximo de caracteres es de 
100 para la descripción de la uni- 
dad y 9 para el precio (ver figu- 
ra 2). 

Las opciones de este programa 
son: consultas y modificaciones, 
listado unitarios, materiales de 
obra y revisión de precios. 

La consulta y modificación tiene 
una cómoda y bonita presenta- 
ción, utilizándose las teclas de la 1 
a la 9 para avanzar el número de 
unidades equivalente al número de 
la tecla pulsada. 


La revisión de precios unitarios 
es automática, de acuerdo a las dos 
listas de precios existentes en ar- 
chivo que se suministran con el 
programa, una de las cuales per- 


Maneja tres archivos de 
datos: Obras, 
Descompuestos y Unitarios 


manece con sus valores a cero. Las 
diversas operaciones relacionadas 
con esta opción son sumamente 
lentas, debido al acceso a micro- 
drive. 


Descompuestos 


АТ igual que el de Unitarios, 
puede contener un máximo de 32 


habrán terminado. 


capitulos con 32 elementos cada 
uno, 1.024 en total. 

Las opciones de este programa 
son: consultas y modificaciones, 
listado de descompuestos, cuadro 
oficial de precios y actualización 
de precios. 

Las consultas y modificaciones 
se realizan por d mismo procedi- 
miento queen Unitarios. 

Las opciones de listado de des- 
compuestos y cuadro oficial se dan 
por impresora. Proceso ligeramen- 
te lento, especialmente er el pri- 
mero, ya que la büsqueda de datos 
ha de hacerse en dos archivos si- 
multáneamente. El cuadro oficial 
de precios es similar, imprimiendo 
sólo las partidas que entran a for- 
mar parte de una obra. Finalmen- 
te, la actualización de precios se 
realiza sobre la lista de precios uni- 
tarios. 


Obra 


Cada nueva obra necesita un 
cartucho con el nombre de “Obra” 


е inicializado con la opción “13 
inicializar” que veremos еп el si- 
guiente programa. El archivo de 
Obra es similar al de Descompues- 
tos, contando con 32 capítulos de 
32 partidas cada uno (ver figura 3). 

Las opciones de este programa 
son: consultas y modificaciones, 
presupuesto, decodificar y actuali- 
zación de precios. 


En realidad es un paquete 
integrado, compuesto de 
cuatro programas distintos 


La información de cada partida 
de obra es de un código (cuatro ci- 
fras), descripción (introducción 
automática), mediaciones y со- 
mentarios (12 líneas), e importe 
(calculado automáticamente con 
los datos de la medición y precio 
elegido). 


Figura 1. Menú de 
opciones. La zona 
en negro indica los 
programas 
residentes en 
memoria. 


Figura 2. Ejemplo 
de un capítulo de 
unitarios 


LO QUE DEBE TENER UN PROGRA 


Para hablar de programas de 
mediciones, nadie mejor que Fer- 
nando de Valderrama, arquitecto y 
autor del programa PRESTO, uno 
de los primeros programas profe- 
sionales aparecidos en el mercado 
para grandes ordenadores. Rodea- 
do de equipos Hewlett-Packard 
150, nos cuenta “lo que debe tener 
un programa de mediciones”, que 
resume en tres características: la 
dimensión adecuada de los archi- 
vos, la flexibilidad de uso y la rapi- 
dez. 

“Un fichero de precios debe te- 


ner 600 partidas como mínimo.' 
Los bancos de datos estándar tie- 
nen 1.200 partidas, como es el caso 
de la Junta de Andalucía, o de 
3.000 para la Generalitat. Pero 
600 es una buena cifra para poder 
manejar la información de forma 
eficiente. Esto en cuanto a obra, ya 
que también hay que tener en 
cuenta que en cada obra se mane- 
jan 4.000 líneas de medición, es 
decir, las líneas en las que se des- 
compone la medición de la unidad 
de obra. Manejar 4.000 líneas es lo 
normal. Y medido en capítulos, el 


ik a 


Longit. 


Latiti 


Figura 3. Ejemplo 
de un capítulo de 
obra. 


Figura 4. Revisión 
de precios, una de 
las opciones más 
lentas. 


Varios 


El cuarto programa consiste en 
cuatro utilidades: inicializar, me- 
moria libre del cartucho, copia de 
seguridad y definición de impreso- 
ra. 

El proceso de inicialización de 
cartuchos consiste realmente en 
dos pasos: formateado de un cartu- 
cho e inicialización para trabajar 
con PREYME. 

La opción Memoria libre infor- 
ma de la capacidad disponible en 
Kbytes del cartucho elegido. Tam- 
poco es demasiado esfuerzo si se 
tiene en cuenta que este dato ya se 
proporciona al pedir el catálogo de 
cualquier cartucho. Sería más útil 
que la información estuviese refe- 
rida al número de unidades conte- 
nidas. 

La definición de impresora posi- 
bilita la obtención de resultados 
por diversos modelos del mercado 
y en distintos formatos de impre- 
sión. 


Resumiendo 


Este programa se enmarca den- 
tro de las denominadas aplicacio- 
nes verticales, y de su seriedad da 


MA DE MEDICIONES 


número normalmente empleado es 
de 30, con 40 ó 50 partidas por ca- 
pítulo. 

Pero lo de menos son las cifras. 
Con el PRESTO se puede hacer 
desde un chalet hasta una autopis- 
ta. А veces se hacen programas a 
medida porque la gente no se da 
cuenta de hasta qué punto trabaja 
con limitaciones. También hay 
quienes creen que el capítulo 1 
siempre tiene que ser el del movi- 
miento de tierras. Todos los datos 
han de ser totalmente modifica- 
bles. Por ejemplo, la asignación de 


la grúa a la obra, normalmente se 
aplica el 396, pero el Ministerio 
de Obras Públicas prefiere un 1 
y la Junta de Andalucía el 8,1 de 
gastos auxiliares. En resumen, el 
usuario debe poder estructurar su 
programa de acuerdo a sus nece- 
sidades. 

Finalmente, el programa ha de 
ser rápido. Si obliga a mantener un 
esquema demasiado rígido no sir- 
ve. Generalmente este tipo de tra- 
bajos se hacen al final en una no- 
che. Con un buen programa se 
puede empezar más tarde para afi- 


nar más y acabar al mismo tiempo 
о antes que la competencia.” 

Lógicamente el PRESTO no es 
compatible con el Spectrum, pre- 
parado para equipos de 120 K de 
memoria y dos floppys de 270 
Kbytes cada uno. El precio varía 
de 200.000 a 260.000, según op- 
ciones. Prestaciones y precios por 
encima de lo que estamos acos- 
tumbrados en el Spectrum. Una 
buena comparación para cono- 
cer mejor al Spectrum, y por 
ende, aprovechar mejor sus capa- 
cidades. 


buena prueba el que sea distribui- 
do por el Colegio de Arquitectos 
de Madrid. Hasta ahora, la infor- 
matización de este trabajo ha re- 
querido fuertes inversiones en or- 
denadores más grandes y en pro- 
gramas más complejos. En contra- 
partida, las dimensiones de sus fi- 


HACEMOS ESE 
TABIQUE o qué! l 


cheros son más limitadas y su ma- 
nejo más incómodo: en vez de tra- 
bajar con un disco, hay que utilizar 
cuatro microdrives. Pero si sus ac- 
tividades no son demasiado gran- 
des, este programa puede resolver- 
le muchos problemas... a un precio 
interesante. 


Spectrum 
48K. 

Distribuidor: Microge- 
sa. 

Periféricos: Interface 1, 
2 unidades microdrive е 
impresora. 
Precio: 24.000 ptas. 


Figura 5. Ejemplo listado de 
capitulos unitarios 


Figura 6. Ejemplo listado de 


descompuestos, 


CAPITULO 


OS01- Ks. Acero ccrrugego suministrado, 
colocado en pilares 


Proste TOTAL SE UÀ RARI 


6503 ку. Acero corrugado suministrado, 


A > вааз 20 озго те. 


сөвттысо 5 
Aslomerantes > asfaltos 
B to pot тал (PA-3501 TR Sanda y 
en obra 6.04 H ` 01-84 
L y 0. 2 0502 Kg. Cemento portland (РА-350) en saco y 
en obra. 7.67 M . 01-84, 
a 0503 кз. Cemento rapido 7.17 .H — 01-04 
4 0504 Kg. Yeso blanca 3.35 н 
5 0505 ку. Yeso comun 2.60 H 
106.53 6 0506 Kg. Cal apagada 11.00 H 
> 0507 Kg. tai viva 8.50 K 
g 8 osos Kg. Cemento grite 10.80 K 
9 0509 Kg. Cemento athesivo 35,004. oras 
10 0510 Kg. Cemento Stiektir 38.30. H 01-89 
11 ози Kg. Cal bigraslica 8.39 K 01-84 
105,28 12 0512 Kg. Escayola 4.00 4 озо, 
13 0513 мз, Perlita mescla con cemento, 4009.00 н 01-84 
H 14 0514 ша. Saco Sol, perlita mezcla con yeso 
Ter lese 314.00 Н 01-84 
15 osis Te. Betun asfaltico (tipo B 150/220 — 29929.00 Н 01-84 
17 0517 Tem Betun Fluidificado (tipo MC-01 — 35649.00 Н 01-84 
ла 0518 Tm. Betun #iuidificado (tipe RC-8) 35649.00 H озса 
19. 0519 Te. Betun éluidifícado en emulsion 
anionica (tipo EAL) de rotura lenta 24677.00 H 01-84 
+ Emulsion anionica (tipo AMS) се 
ек, тақта media 20690.00 H ` 03-84 
x 21 oszi Te 5 
22 0522 T. Emuision cationica (tipa ECH) 
rotura media 2898.00 H був 


pz 


iAPROVECHA AL MAXIMO TU SPECTRUM! 


Ahora, a tu alcance, dos obras fundamentales para que podáis sacar todo el partido posible a vuestro ordenador. 


(RANIA 


Esta publicación está diseñada para guiar al nuevo 
usuario del ZX Spectrum desde el momento que el 
ordenador se conecta hasta conseguir una base sufi- 
ciente de la programación BASIC 

Incluye temas como 

* Introducción al teclado 

* Instrumentos útiles para la programación 

Uso de comandos faciles. 

Como construir un programa. 

Técnicas de programación 

Aplicaciones prácticas. 


.... 


Este libro, escrito еп estilo ameno y práctico, está 
dirigido a todos aquellos usuarios que han dejado 
atras la etapa de los Juegos y necesitan adentrarse 
en el fabuloso mundo de la programación 

El temario incluye 

e Reglas y herramientas del BASIC 

La técnica de los organigramas 

Cómo planificar un programa 

El mundo de las rutinas. 

Variables y cadenas 

Funciones matemáticas usuales 


100 pags. - 750 PTAS 109 pags. - 750 PTAS 
CUPON DE PEDIDO 
Recorta este cupón debidamente cumplimentado y envíelo a INFODIS, S. A. С/ BRAVO MURILLO, 377-5 ° A - 28020 MADRID 
Si, envienme el(los) libro(s) que a continuación detallo al precio de 750 ptas. libro, más 100 ptas. en concepto de 


gastos de embalaje y envio 


El importe lo abonare: POR CHEQUE 
(AMERICAN EXPRESS 


Número de mi tarjeta 


TITULO 


NOMBRE __ e NOM 
CALLE 
CIUDAD 
PROVINCIA Ss 


-————— A A A Á 


O CONTRAREEMBOLSO 
D) (INTERBANK 


D CON TARJETA DE CREDITO (VISA 0) 
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Los buitres contra 
TODOSPECTRUM. 
Los jugadores se 
agrupan en una 
esquina. 


No se equivoque con el rugby, en 
el futbol americano sólo hay 11 juga- 
dores y la pelota es más pequena 
Aunque no exista gran afición por es- 
te juego, seguro que las cuotas de 
adicción aumentan, al menos el jue- 
go con Spectrum. No se preocupe si 
nolo conoce bien, se dan instruccio- 
nes completas en las tres pantallas 
(pantalla de juego, estadisticas y ayu- 
da). 

Para comenzar, como en el juego 
real, se lanza la moneda y el equipo 
acertante recibe el balón y se con- 
vierte en atacante para el que hay 
unas jugadas determinadas que el de- 
fensor tendrá que contrarrestar con 
jugadas defensivas. Cada jugada ata- 
cante tiene su contrapuesta defensi- 
уа. Si no se da con la jugada defensi- 
va o atacante correcta se conseguirán 
pocos o ningún resultado. 

El juego es una fiel representación 
del futbol americano y para асеп- 
tuarlo más, se han permitido el lujo 
de visualizar, en cualquier momento 
del juego, una tabla estadística con 
todos los porcentajes acerca del desa- 
rrollo del juego, práctica común de 
los partidos americanos 

La representación gráfica es bue- 
na, aunque se echa en falta la posibi- 
lidad de visualizar el campo de toda 
la pantalla. Tan sólo ocupa la mitad, 
dejando la parte inferior de la panta- 
lla para información del juego. De 
esta forma, los jugadores son dema- 
siado «pequenos» y no hay gran dife- 
rencia de color entre los equipos. 


Estadística del juego, 
para tenerlo todo 
controlado. 


666060 PoOpr 


En cuanto al nivel de dificultad, 
una vez que haya conseguido hacer- 
sc con las reglas del juego, varía con 
la experiencia de cada uno (aunque 
la suerte también influye en alguna 
medida). Cuanto más conozca los 
distintos tipos de jugadas y el mo- 
mento de llevarlas a cabo, mayor será 
su oportunidad de ganar. 


Tiene dos opciones de juego: con- 
tra el ordenador o contra un tercero. 
En el caso de que elija al Spectrum 
como contrario le será bastante difi- 
cil ganar. Pero se lo aconsejamos efu- 
sivamente, ya se sabe que «para hacer 
un buen partido hay que estudiar al 
contrario». 


МАМАСЕН 


En la facultad de ciencias empresa- 
riales de cualquier universidad que se 
precie, seguro que encontrará un 
programa similar a este. El ordena 
dor será más grande, pero dificilmen- 
te el programa puede ser más com- 
pleto. 

Manager es un simulador de em- 
presa, es decir, su Spectrum le da in- 


formación de «su empresa» referente 
a cuatro productos que integran el 
proceso productivo»: el microorde- 
nador MICRO-XLOO, la unidad de 
discos FLOP-DISKO, la impresora 
AZ-PRINTER, el programa de conta- 
bilidad LOGICOMPTA, y el de ges- 
tión de existencias LOGISTOCKS. 


Además de otros dos productos en 
fase de investigación. 

Un completo manual de 17 pági. 
nas informa de las distintas posibili 


dades, si bien deja para la última pá-* 


gina la forma de comenzar. Al cargar 
el programa hay que decidir entre 
JUEGO CARGADO o INICIAR 
UN NUEVO JUEGO, lo que signifi 
ca seguir соп el resultado grabado de 
una sesión anterior, о comenzar. 
Una vez resuelto este pequeño inci- 
dente, se puede comenzara dirigir la 
empresa, disponiendo de diversas 
opciones: Visualización de cuadros 
de resultados, decisiones de produc- 
ción, decisiones de marketing, deci- 
siones financieras, paso al siguiente 
ejercicio. 


Además, dado que Manageres una 
traducción de la versión francesa, el 
juego está adaptado a las normas del 
Mercado Común, impuesto 
LV.A. Esto puede suponer un poco 
de confusión al principio, especial- 
mente en la estructura de la cuenta 
de resultados y del Balance. 

La simulación de la realidad em- 
presarial está bien, aunque con «de- 
masiadas» incidencias laborales. Y 
tenga cuidado con los aumentos sala- 
riales: antes de pasar al siguiente ejer- 
cicio tendrá que revisar el precio de 
sus productos, si no quiere vender 
por debajo de su coste 


con 


¿FORTH enm 


Para trabajar con FORTH en el Spectrum, como con 
cualquier otro lenguaje distinto del BASIC, es necesario un 
compilador. Alfonso Martínez responde a las preguntas 
que los lectores nos han formulado. 


os nuevos lenguajes, como el 
[ FORTH, son, еп general, 
programas en código máqui- 
na, con algunas excepciones 
nada espectaculares en BA- 
SIC, que normalmente toma su- 
brutinas de la ROM como medida 
de ahorro de memoria. Esto en 
cierta medida adultera un poco el 
resultado, ya que la ROM del 
Spectrum está pensada para fun- 
cionar como intérprete y para ser 
usada por principiantes, aunque 
en realidad con estos programas se 
puede hacer exactamente lo mis- 
то que si de verdad dispusiésemos 
de un sistema operativo en el len- 
guaje que estemos trabajando. 

En la mayoría de estos progra- 
mas es posible encontrar dos posi- 
bilidades de uso, bien como intér- 
prete o como compilador. Básica- 
mente la diferencia de cada posibi- 
lidad se puede resumir viendo las 
propiedades de cada una de ellas. 


Intérprete 


El programa es interactivo con 
el usuario, es decir, a medida que 
se va introduciendo el programa o 
los comandos, los corrige si es ne- 
cesario y los ejecutan secuencial- 
mente. Suele ser más largo y com- 
plicado que el compilador, dadas 
las múltiples situaciones que debe 
ser capaz de salvar. En ellos es 
prácticamente imposible el blo- 
queo (siempre y cuando sean me- 
dianamente buenos). Un ejemplo 


muy cercano a nosotros es el ROM 
del Spectrum, que no es ni más ni 
menos que un intérprete de BASIC 
escrito en código máquina. 


Compilador 


El programa no es interactivo 
con el usuario, es decir, debe escri- 
bir todo el programa, ejecutar la 
subrutina que localiza errores sin- 
tácticos y posteriormente compila, 
que noes ni más ni menos que tra- 
ducir el programa hecho en len- 
guaje de alto nivel a uno de bajo 
nivel como puede ser Assembler. 
En la mayoría de los programas 
comerciales se aprovecha el intér- 
prete construyendo un programa 
compilado consistente únicamente 
en llamadas a subrutinas que se 
encargan de hacer lo que el progra- 
ma mande. Esta opción tiene gene- 
ralmente el problema de los blo- 
queos, ya que la rutina de correc- 
ción es tan sólo sintáctica, pero no 
prevé resultados absurdos que 
pueden bloquear el programa. 

Lógicamente el FORTH no iba 
a ser una excepción y tiene varias 
versiones de programas traducto- 
res. Sólo existe un microordenador 
preparado exclusivamente para el 
FORTH (Jüpiter Ace), por lo que 
los curiosos necesitamos de pro- 
gramas para hacer nuestros pini- 
tos, que en ciertas aplicaciones es 
insustituible. Para Spectrum exis- 
ten varias versiones, aunque algu- 
nas de ellas, escritas en BASIC en 


su mayoría, es preferible obviarlas. 
Básicamente nos vamos a referir a 
dos cuya disposición es parecida 
aunque una de ellas sea difícil de 
conseguir: Artic y Abersoft 


Artic 


En un principio fue pensada 
para el ZX-81, adaptada al Spec- 
trum posteriormente. Deben exis- 
tir varias versiones aunque parece 
difícil conseguirlas hoy día. Como 
nota destacada frente a la otra ver- 
sión, aparte de ser más “purista”, 
están las variables de control que 
ayudan mucho a la hora de progra- 
mar al dar una idea del estado del 
sistema. Otra característica, más 
bien anecdótica, consiste en indi- 
car el sistema que está utilizando, 
así utilizando el programa en un 
Spectrum, pulsando CPU obten- 
dremos ZX-Spectrum. Otra curio- 
sidad es la instrucción BYE que 
hace que salgamos del programa 
hacia el BASIC. En esta versión es 
la única forma de hacerlo. 


Abersoft 


Este es algo más “sucedáneo” ya 
que se le puede engañar y volver al 
BASIC utilizando algunas instruc- 
ciones erróneas, lo cual a veces 
ayuda a no liarse al no disponer de 
instrucción similar a BYE. Esta 
versión utiliza más direcciones de 
subrutinas de la ROM, es más cer- 
cano al funcionamiento del Spec- 
trum en BASIC sin abandonar en 
ningún momento la filosofía 
FORTH. Como nota destacada 
está la posibilidad de definir carac- 
teres que en las versiones iniciales 
de Artic no era posible. 


H 


¡Spectrum? 


En resumen, cualquier versión 
puede servir para inici 
FORTH y nuestra elec 
basar sólo en la disponibilidad de 
uno u otro en cualquier momento. 
De hecho los ejemplos aquí descri- 
tos están hechos con la sión 
Abersoft, aunque en cualquier otra 
funcionaría. 

Si ya dispone del intérprete o 
compilador FORTH, pasemos al 
siguiente paso: cargar el programa. 
Si la versión es original, se autoeje- 


жуу 


cutará y aparecerá el típico mensa- 
je del fabricante, año, programa y 
versión, aunque el orden puede va- 
riar de una versión a ot їп algu- 
na puede aparecer además la me- 
moria libre disponible. Además 
vamos a observar un mensaje al 
que vamos a acostumbrarnos bien 
pronto, que es OK, que indica que 
el ordenador no ha encontrado 
problemas y está dispuesto a se- 
guir, esperando nuestras próximas 
instrucciones. Para no hacerle es- 


perar, nada mejor que pulsar EN- 
TER, a lo cual responderá con 
otro OK, indicando que no ha te- 
nido problemas en no hacer nada, 
que es lo que le hemos dicho que 
haga, con lo que hemos descubier- 
to que para comunicarnos con él 
después de haber introducido las 
instrucciones hay que pulsar EN- 
TER. 

En FORTH las instrucciones 
deben ir separadas por un espacio 
y escritas directamente, letra a le- 


УА N} 
АУ 
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AY 
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tra, así рог ejemplo BORDER по 
se obtiene pulsando la B, sino es- 
cribiéndola letra a letra. 

La siguiente pregunta que se for- 
mulará es cómo pasar de línea а lí- 
nea dentro del FORTH. Para ello 
existe la instrucción CR, Carriage 
Return, que la utilizaremos para 
pasar a la línea siguiente. Así, 
pues, si escribiésemos: 


1. (ENTER) 


obtendríamos еп la misma línea 1 
OK, mientras que si ahora escri- 
biésemos: 


1. CR(ENTER) 


obtendremos no en la misma linea, 
sino en la siguiente: 1 OK. Así se 
puede ver la diferencia al utilizar 
CR. Lógicamente se podrán escri- 
bir cuantos CR queramos mientres 
estén separados por espacios sin 
preocuparse del scroll, que en 
FORTH se ejecuta automática- 
mente. 

La instrucción . lo único que 
hace es pintar el contenido del 
stack. 

Aquí surge la diferencia entre 
compilador e intérprete. Lo hecho 
hasta ahora ha utilizado la versión 
intérprete donde secuencialmente 
se han introducido las instruccio- 
nes y se han ejecutado al pulsar 
ENTER. Si esto lo quisiésemos ha- 
cer en versión compilada debería- 
mos escribir: 


I. CR; (ENTER) 


y para hacerle funcionar, debería- 
mos pulsar: 


al (ENTER) 


obteniendo lo mismo que antes 
aunque con una pequeña diferen- 


cia: para repetir el proceso no hay 
que volver a escribirlo, sino volver 
a pulsar al y ENTER. 

En realidad lo que hemos hecho 
ha sido definir una palabra, una 
definición nuestra. Básicamente la 
diferencia respecto a lo que había- 
mos hecho hasta ahora reside en 
los distintos signos utilizados que 
analizamos paso a paso: 


Het А] encontrarlo, el ordena- 
dor | sabe que es principio de com- 
pilación, de inicio de definición, 
esperará un nombre. 

“а1” Es el nombre que espera 


“... aproximada mente 
cuatro 


veces más rápidoque el 


BASI! 


el ordenador, y al cual habrá que 
referirse cuando queramos ejecu- 
tar la instrucción. No tiene su elec- 
ción mayor problema que el pri- 
mer caracter debe ser una letra, no 
debe contener ningún espacio y su 
máxima longitud es de 32 caracte- 
res. El ordenador será capaz de dis- 
сегпіг entre vocablos diferentes, 
siempre que el orden, cantidad o 
número de caracteres de la defini- 
ción sea diferente, siendo así dife- 
rentes las definiciones: 


al y a2 o COMP y СОРМ o ERE2 
y ER2 


*1. CR” Similar a la versión in- 
térprete. Son sencillamente las ins- 
trucciones a realizar. 

**" Al llegar a este punto, el 
ordenador entiende que la compi- 
lación ha terminado y vuelve al 
modo intérprete, dando el informe 
OK. 


Si ahora pulsamos VLIST ob- 
tendremos una gran tabla de pala- 
bras predefinidas, pero curiosa- 
mente la primera en aparecer será 
А1, que es la que hemos definido. 


Definamos ahora la palabra: 


: А2. “ESTA PALABRA NO 
HACE NADA”; (ENTER) 


Si pulsamos VLIST podremos 
verla definida al lado de А1. Si 
ahora escribimos: 


FORGET A2 


y escribimos VLIST ahora no apa- 
rece, e incluso si escribimos A2 
aparcerá un mensaje O, de error: 
no existe esa definición, ya que la 
instrucción FORGET elimina la 
palabra especificada. 

Ejemplos de compilación se 
pueden encontrar en el programa 
de nümeros romanos que en 
FORTH aparece en TODOSPEC- 
TRUM en el nümero de enero, 
donde se definen las palabras, aun- 
que hay zonas que se usa el modo 
intérprete como la segunda línea 
donde se definen las variables. 

Otra diferencia apreciable entre 
los dos modos es su velocidad de 
interacción, que se puede mostrar 
para el siguiente ejemplo: 

Pulsemos . "Hola" (ENTER), y 
observemos la interacción. Ahora 
definamos : АЗ. “Hola” ; (EN- 
TER) y pulsemos A3. ¿Nota la di- 
ferencia? 

Sin embargo, dentro del modo 
compilador podemos introducir 
las instrucciones entre corchetes, 
como siempre separado con espa- 
cios. También tienen efecto pare- 
cido instrucciones como ІЛТЕ- 
RAL o INMEDIATE. 

Existen versiones de FORTH en 
las que se pueden escribir progra- 
mas con números de línea, pero no 
hay que olvidar que no son núme- 
тов reales como puedan ser en ВА- 
SIC, sino meramente representati- 
vos. En las versiones con esta ор- 
ción se pulsa: EDITOR, indicando 
el ordenador el trabajo a realizar. 

Otra posibilidad muy útil que el 
FORTH dispone es crear un voca- 
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SIN MAS GASTOS DE ENVIO 


bulario propio а! que definimos 


como: VOCABULARY MIO 
(ENTER), donde lo que hemos de- 
finido es un vocabulario que se lla- 
ma MIO y todas las definiciones 
que posteriormente hagamos esta- 
rán clasificadas dentro de un voca- 
bulario definido. Si quisiésemos 
borrar este vocabulario por cual- 
quier circunstancia, pulsaríamos: 


FORGET MIO. 


“,.. tan potente como el 
código máquina y tan 


sencillo 
como el BASIC” 


Еп FORTH existe además la po- 
sibilidad, inexistente en BASIC, de 
poder conocer los valores de las 
varibles del sistema con sólo lla- 
marlas, como por ejemplo: 


FIRST? 
apareciendo en pantalla е! valor 


del primer bite de programa, cosa 
que en BASIC no es posible direc- 


tamente. Al igual que en BASIC, 
en FORTH podemos cargar y gra- 
bar con instrucciones SAVE, 
LOAD y FLUSH. 


Una vez que el programa está 
introducido, para hacerle funcio- 
nar hay que invocar el nombre de 
la definición es decir, no existe una 
palabra como RUN, sino que para 
correr cada bloque se llama por su 
nombre. Lógicamente, dentro de 
una misma instrucción se pueden 
introducir palabras ya definidas, 
como en е! ejemplo siguiente: 


ТАП. "NUMERO" ; 
: А12 10 o do ALI I. CR LOOP ; 


Desde dentro de AL2 se llama a 
ALI 


Además existen subrutinas muy 
ütiles en FORTH como cuando 
queremos introducir nümeros con 
más de un caracter, pudiendo utili- 
zar: 


SUSCRIBASE 
POR TELEFONO 
x Inás fácil, 

x más cómodo, 

x más rápido 


Telf. (91) 733 79 69 
7 días por semana, 24 horas а su servicio 


SUSCRIBASE A 


: INPUT PAD 1+ 64 EXPECT .O 
PAD (NUMBER) DROP DROP ; 


esta subrutina se usa en el progra- 
ma de nümeros romanos antes ci- 
tado. Si sólo queremos introducir 
números desde el 0 al 9 podemos 
utilizar: 


: UNCAR KEY 48 - DUP .; 


donde KEY es similaral INKEY$ 
del BASIC, conteniendo el código 
del caracter y 48 - normaliza el re- 
sultado. 


También es posible trabajar en 
cualquier base entre 2 y 36, aun- 
que las más usuales sean la deci- 
mal y la hexadecimal, pudiendo 


invocar una u otra con DECIMAL 
o HEX. 

La versión Abersoft contiene 
además subrutinas típicas de la 
ROM del BASIC, pero con la mis- 
ma filosofía del FORTH, como 
pueden ser PLOT, DRAW, INK, 
PAPER o BORDER. Ejemplos de 
sus usos son, comparándolas con 


Figura 1: Informes más usuales del FORTH. 


Código de error Mensaje de error 
0 Palabra que по está еп el Diccio- 
nario. 
1 Stack vacío. Probar соп. 
2 Diccionario lleno. En principio di- 
fícil. 
4 Cuidado, nombre no único. No 


compila el último nombre. Рг 
bar: : ALMI . “PRUEBA” ; 
ALMI1 . “*” ; aparecerá el infor- 
me de error y al hacer VLIST sólo 


habrá un ALMI 
7 Stack lleno. Igual que 2 
17 La palabra debe ser usada en defi- 


nición, al igual que en BASIC no 
puede usarse en programa EDIT 


18 Ejecución sólo 

20 Definición no acabada. Falta ; о 
THEN similares 

21 En diccionario protegido. Intentar 
FORGET UDG 

24 Vocabulario protegido 


el BASIC: 
BASIC FORTH 
PLOT 33,33 3333PLOT 
INK 7 7INK 
PAPER 2 2 PAPER, ETC. 


Y si se lo toma en serio y empie- 
za a trabajar con su ordenador, 
descubrirá que, al igual que otros 
lenguajes... itambién obtendrá 
mensajes de error! Los más usuales 
se ofrecen en la figura 1. 


Alfonso Martín 


0 VARIABLE CONTADOR 
CUENTAS 0 CONTADOR ! 

CR 

0 BEGIN 

KEY DUP EMIT 

CONTADOR ө 1 + CONTADOR ! 

DUP 13 = UNTIL 

CR "LA LONGITUDES * CONTADOR @ 

DROP CR 

BEGIN 

EMIT DUP 

WHILE 

REPEAT 

DROP CR ; 
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Ноу,еп solitario. 


cindible para el 
o que 


cionen y se ponga derelieve la labor silenciosa y en solitario de muchos 


informática será un instrumento impre: 


г poco: 
xciedad. Y para construir este futuro, es necesa 


conocimiento y € rrollo de À 


hoy surjan, 
;eneralitat de Catalunya organiza el 1% Festival de Software. 


ble, la ( 
s personas o grupos que hayan creado progra- 


pueden envi trabajos todas aquell 


mas informáticos. 

La fecha límite para la pre 
exhibirá públicamente lo 
rios y los del jur: 


ntación de programas, será el 30 de Mayo, y en Octubre, se 
que serán puntuados por el públ rite- 
5 diversos premios, que incluyen una categoría juvenil. 
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so que осире la mayor parte de la 
memoria, será necesario situar la 
rutina en el buffer de la impresora, 
que será posible gracias a que sólo 
ocupa 229 bytes de longitud. 

El método de introducir la clave 
y la rutina de comprobación se 
han diseñado cuidadosamente. 
Cuando llamemos a la rutina la 
pantalla se limpiará y aparecerá la 
pregunta “INTRODUZCA LA 
CLAVE”. A continuación se ha de 
introducir la clave correcta. 

Deberá anotar los datos siguien- 
tes: mientras se introduce la clave 
se escuchará un beep después de 
cada pulsación; cualquier cosa que 
se introduzca no aparecerá en la 
pantalla; no se ha incluido la fun- 
ción de autorrepetición de las te- 
clas y al finalizar de introducir la 
clave se ha de pulsar ENTER. 

La clave no se visualizará en la 
pantalla mientras se está teclean- 


Una clave. please 


1 almacenamiento de infor- 
E mación en cassette es muy 
eficiente, pero el método 
elegido para estructurarlo 
hace que la protección de 
los programas sea difícil. Cada blo- 
que de datos o programas está pre- 
cedido por una cabecera, que es 
un pequeño bloque de datos conte- 
niendo información sobre las ca- 
racterísticas principales, por ejem- 
plo, la longitud, dirección de co- 
mienzo y el tipo de datos que hay. 

Los usuarios que hacen su pro- 
pio sofware no tienen forma de 
proteger sus programas para evitar 
su lectura ilegal, por lo que puede 
ser útil una rutina que requiere la 
introducción de una clave para po- 
der entrar al listado. La rutina no 
permitirá el acceso al programa 
hasta no introducir la clave correc- 
ta. 

La clave podrá tener la longitud 
que especifiquemos, siempre y 
cuando tenga al menos un carac- 
ter, y se puede alterar con la infor- 


mación adecuada, siempre que 
haga falta. Una vez aclarado esto, y 
programado, la rutina hace un 
buen trabajo al evitar que se abran 
los programas. 

También hay una característica 
incluida para las distintas versio- 
nes que se han de hacer. Por razo- 
nes de seguridad el listado desen- 
samblado del código máquina no 
se ha incluido, pero más adelante 
se explica detalladamente. El códi- 
go, que está en el programa como 
un volcado decimal, no es relocali- 
zable. Sin embargo, para prevenir 
que se limite la utilidad del códig« 
el programa en BASIC requerirá 
que se le introduzcan los detalles 
de la asignación de memoria, y se- 
gún se vuelca el código a la memo- 
па se ajusta la dirección absoluta 
para que corresponda con la direc- 
ción requerida. Esto significa que 
cada vez que quiera preparar la ru- 
tina se ha de ejecutar el programa 
cargador de nuevo. Si se desea aña- 
dir la rutina a un programa exten- 


do, de manera que si alguien está 
observando cuando se introduzca, 
encontrará difícil descifrar lo que 
se está tecleando. Es fácil seguir 
mentalmente dónde se encuentra 
uno mientras se introducen los da- 
tos, especialmente con el beep del 
teclado. No existe la posibilidad de 
autorrepetición y esto le evita 
equivocarse debido a dejar una te- 
cla pulsada más del tiempo desea- 
do. 

Aunque la necesidad de pulsar 
ENTER después de introducir la 
clave parece ser innecesaria, y se 
podía evitar, tiene una serie de 
ventajas. Permite la posibilidad de 
utilizar claves de distinta longitud, 
en vez de mantener la misma lon- 
gitud siempre, ya que esto sería 
una limitación, además permite a 
la rutina llevar un control acerca 
de los intentos llevados a cabo al 
introducir la clave (la importancia 
de esto se verá más adelante) y 
también evita que cualquier usua- 
rio que desconozca la clave dé con 


ella por equivocación y se intro- 
duzca en nuestro programa han de 
pulsar ENTER para que se com- 
pare la palabra introducida por la 
clave. 

Si ya ha visto el programa carga- 
dor, observará que a la variable 
“offset” ha de asignársele un valor 
cuando se ejecuta el programa. 
Esto es una característica de la ru- 
tina que permitirá efectuar versio- 
nes alternativas de ella, cada una 
algo distinta de otra. A la variable 
“offset” se le ha de asignar un va- 
lor entre 0 y 128 inclusive. No es 
necesario acordarse de dicho valor 
cada vez que introduzca la rutina, 
pero dando valores diferentes ase- 
guraremos que la rutina sea distin- 
ta cada vez que accedemos a ella, 
haciendo más difícil “romper” los 
programas. 


No se permite el acceso 
al programa hasta que 


se introduce 
la clave correcta 


Cuando tecleamos la clave de- 
seada en el programa cargador, se 
debe tener en cuenta que las 
mayúsculas y minúsculas se dife- 
rencian y cuando el código máqui- 
na lea del teclado, sólo se verán le- 
tras minúsculas, a no ser que se 
mantenga pulsada la tecla CAPS 
SHIFT mientras se teclea. La ruti- 
na aceptará números e incluso 
cualquier caracter que se obtenga 
al pulsar la tecla SYMBOL SHIFT 
excepto los comandos (NOT, 
STEP, TO, AND, ETC). Si utili- 
zas comandos dentro de la clave, la 
rutina se vendrá abajo, o en el me- 
jor de los casos será imposible de 
introducir. 

Tampoco podrá utilizar ningún 
caracter que se obtenga con el cur- 
sor en el modo “E”, por ejemplo, 
no utilizar cualquier caracter o co- 
mando que estén en la parte supe- 
rior e inferior de las teclas en rojo y 
verde respectivamente, ya que es- 


tos son imposibles de introducir en 
código máquina. Para evitar desas- 
tres, se deberán probar las claves 
antes de incorporar la rutina a 
nuestros programas. Es mejor ase- 
gurarse que la clave funciona co- 
rrectamente antes de que nos sea 
imposible introducirnos en nues- 
tro propio programa debido a que 
hemos elegido una clave ilegal. 

Otra característica de esta rutina 
que excluye a los “piratas” está el 
tiempo de retardo que empleamos 
conjuntamente con el teclado. Está 
implementado de dos maneras dis- 
tintas: la primera es como un dis- 
positivo de autodestrucción. 
Mientras se ejecuta la rutina el 
programa cuenta el tiempo que se 
tarda entre pulsación y pulsación. 
Si alguna vez este tiempo supera 
los diez segundos el ordenador se 
borrará (NEW) automáticamente. 
Esta característica está diseñada 
para evitar que se prueben las 
combinaciones posibles secuen- 
cialmente. 

La otra característica también 
ayuda al respecto, aunque no 
cuenta en tiempo real. La rutina 
contará el número de intentos lle- 
vados a cabo. Podrá equivocarse 
una vez, incluso dos veces, pero a 
la tercera se autodestruye, borran- 
do todo. 

Añadir la rutina en código má- 
quina a los programas ya escritos 
no es ningún problema. Puede lla- 
mar a la rutina desde el inicio del 
código máquina mediante una Па- 
mada (CALL) a la dirección de co- 
mienzo y luego proceder a la eje- 
cución del programa. Si el usuario 
se equivoca al introducir la clave, 
será imposible acceder a la rutina 
principal, en código máquina. 

También es posible añadir la ru- 
tina a programas en código máqui- 
na, con una condición: tiene que 
haber la suficiente memoria libre 
para poder ubicar la rutina, la cla- 
ve y el buffer de entrada de datos. 
Si encuentra ese espacio suficiente, 
la conversión es inmediata. Todos 
los programas en código máquina 
han de ser llamados desde un pe- 
quefio programa en BASIC. Este 
programa puede constar de dos 
instrucciones: 

1 LOAD “” CODE: RANDOMI- 
ZE USR dirección de comienzo 


Esto permitirá, que al autoejecu- 
tar un programa se cargue la rutina 
y llame al código máquina. El pro- 
grama cargador podrá contener co- 
mandos (INK, PAPER, BORDER, 
ETC) que limpiarán la pantalla y 
la dejará presentable para cargar el 
programa, hasta podrá tener más 
de un bloque para cargar. Esto no 
le afectará. 


Rutina no relocalizable 


de 229 bytes 


Para incluir la rutina de seguri- 
dad de la clave haga lo siguiente: 

1. Modifique el programa car- 
gador al comienzo del software de 
la manera siguiente: después de to- 
dos los comandos LOAD “” 
CODE, inserte dos instrucciones 
LOAD **” CODE más. 

2. Escriba la dirección de co- 
mienzo de RANDOMIZE USR di- 
rección de comienzo, normalmen- 
te al final (esto puede ser alternati- 
vamente LET a = USR dirección 
de comienzo o también un PRINT 
USR dirección de comienzo. 

3. Trabaje donde coloca los 
229 de la rutina en la memoria y 
escriba esta dirección en la instruc- 
ción RANDOMIZE USR en el 
programa, de manera que el BA- 
SIC llame a la rutina de seguridad. 

4. Guarde (SAVE) el programa 
cargador en BASIC modificado en- 
cima del programa antiguo al co- 
mienzo del software. 

5. Carque (LOAD) o teclee la 
rutina cargadora de la clave. 

6. Convierta la dirección que 
escribió anteriormente en el for- 
mato HOB/LOB (High/Low order 
byte), tal y como aparece en la pá- 
gina 173 del manual, con la excep- 
ción de que no se hace POKE n, (o 
POKE n+1), sólo se imprime. 

7. EDITe la última línea de la 
DATA en el programa cargador, 
sustituya el 201 y en su lugar pon- 
dremos, primero 195, luego una 
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NOTICIAS 


iPor fin llega el QL! 

Pocos ordenadores han levantado tanta expectación 
como el nuevo Quantum Leap, conocido simplemente 
como QL. Y es que, hay que reconocerlo, Sinclair sigue 
siendo el líder mundial en ordenadores de bajo precio y se- 
guirá siéndolo por mucho tiempo mientras continúe batien- 
do sus propios récords, desde el ya legendario Timex 1000 


que no llegó a comercializarse en España, hasta el nuevo 
QL, dispuesto a pisar fuerte en el mercado de ordenadores 
doméstico-profesionales. 

iPor fin llega el OL! 

Pero no llega solo. En este suplemento analizamos los 
distintos productos hard y soft que lo acompañan, junto а 
los proyectos españoles en marcha y que pretende ser el 
embrión de una futura revista independiente de usuarios OL. 


Muchas son las noticias que 
hemos de daros sobre el mun- 
do Sinclair, por el momento 
casi exclusivamente del mer- 


En esta sección de noticias, 
tan solo nos fijaremos en los 
más importantes, presumible- 
mente aquellas que podremos 


cado inglés. tener en España en breve. 


Monitores 

La alta resolución del OL, 
junto con la anchura de la ima- 
gen que produce han motiva- 
do la aparición de numerosos 
monitores “especiales QL”. 


Los formatos elegidos son 
12 y 14 pulgadas en color a 
precios asequibles, a partir de 
96.000 ptas. el modelo de Mi- 
crovitec, primero en aparecer 
en el mercado español. 


Libros 


Se prepara una gran avalan- 
cha de información escrita so- 
bre todo lo que usted pueda 
imaginar sobre este ordena- 
dor. La editorial RA-MA pare- 
ce ir por delante con sus dos 
primeros títulos ya a la venta, 
en español: “Manual de refe- 
rencia para el Sinclair QL” de 
Tim Hartnell, y “Explorando el 
Sinclair QL. Una introducción 
al Superbasic” de Andrew 
Nelson. 


CP/M para el QL 


La empresa QL+ comerciali- 
za una tarjeta con un 780, 
64K de memoria, y el software 
necesario para la comunica- 
ción con el OL. En pocas pala- 
bras, una tarjeta CP/M. La ex- 
tensión incluye un interface 
Centronics y nos da la posibili- 
dad de usar la gran cantidad 
de programas que existen 
para ese operativo. 

Por otro lado Quest ha de- 
sarrollado una versión del 
CP/M que "corre" con el pro- 
cesador 68008, pensando en 
su uso en máquinas desarro- 
lladas a partir de este procesa- 
dor. El sistema funciona con 
microdrives о diskettes y se 
plantea como una alternativa 
al QDOS. 


Esto es el К/05 


El 68 K/OS ев un sistema 
operativo, resultado de un 
contrato de GST con Sinclair 
para diseñar el sistema opera- 
tivo del OL. Finalmente no se 
montó con la máquina y ahora 
la empresa lo ofrece en ROM, 
como una alternativa al 
ODOS. El sistema ofrece una 
serie de utilidades en Micro- 
drive, pero (de momento) sólo 
зе puede programar con el en- 
samblador, por lo que parece 
difícil que logre ocupar el sitio 
del QDOS. 

Lus A ON 
¿Qué QL? 

Existen en este momento 
varias versiones del sistema 
operativo del QL. Cuanto más 
moderno, menos errores. Para 
saber la “edad” de nuestra 
máquina, basta teclear PRINT 
VERS. El ordenador escribirá 
FB, AH o JM. Esta última co- 
rresponde a la versión vigente 
en este momento. La versión 
2.0 que se lanza en breve pa- 
rece que irá etiquetada como 
JS. 


Interfaces 


Ante la falta de interface 
centronics standard para el QL 
muchas empresas se han lan- 
zado a "tapar el һиесо”, por lo 
que en el mercado inglés 
abundan los adaptadores e /n- 
terfaces para conectar impre- 
soras Centronics al QL. Los 
precios están alrededor de las 
8.000 ptas. 


Para quienes quieran utilizar 
su QL en el control de instru- 
mentos de laboratorio u otro 
tipo de aparatos que utilicen el 
standard ІЕЕЕ-488, CST ma- 
nufactura un interface para 
utilizar este standard, también 
utilizado por impresoras y plot- 
ters de calidad. El puerto de 
comunicaciones es totalmen- 
te accesible desde el ODOS. 


TOA ARI 
Discos 


Hasta el momento ya han 
salido cuatro versiones de 
controladores de disco flexi- 
bles (hasta 720 Kbytes) y una 
unidad de disco duro de 7.5 
Megabytes. 

Quest, una de las casas de 
software especializada en el 
QL, “obliga” a utilizar CP/M 
68K (Sistema operativo dise- 
fiado para el QL por la misma 
firma) para utilizar sus unida- 
des de disco. Las restantes 
unidades pueden funcionar 
con el QDOS (Sistema opera- 
tivo del QL). 

En cuanto a precios, hay 
gran variedad dependiendo 
del /nterface y tipo de disco 
elegido, oscilando entre 
60.000 y las 240.000 ptas. 
del disco duro. 


оз 


NOTICIAS 


= Con un diseño muy 
c agradable а la vista, al 
= sacar е! QL de su caja 
nos da la impresión de 
que Sinclair ha progre- 
sado mucho desde el 
Spectrum. El teclado es 
c "standard" QWERTY de 
65 teclas, muy estético, 
pero no llega a la calidad 
profesional. Las teclas 
tienen un recorrido largo 
y poca tolerancia res- 
pecto al ángulo de pul- 
васібп. Adecuado para 
mecanógrafos “ата- 
teurs”. 

En la versión española, 
los acentos y la Ñ ocu- 
pan su lugar habitual en 
las máquinas de escribir. 
La tecla CONTROL, clá- 
sica de otros ordenado- 
res, da acceso a todo el 
juego de caracteres. Cin- 
co teclas de función ali- 
neadas en dirección ver- 
tical еп la parte izquierda 
del teclado facilitan el 
manejo de opciones en 
los programas. 

Si queremos conectar 
elQL a una pantalla, dis- 
ponemos de toma de te- 
levisión (UHF) parecida 
a la del Spectrum. Tam- 
bién se puede conectar a 
monitor, mediante una 
clavija RGB. El cable de 
TV está incluido con el 
aparato; no así el cable 
de video. La resolución 
gráfica es generosa, соп 
512 por 256 puntos en 
4 colores o 256 x 256 
puntos en 8 colores. La 
imagen tiende a “rebo- 
sar” en algunos monito- 
res, por lo que, si ya te- 
петов uno, deberemos 
aseguramos de que la 
pantalla del QL “cabe” 
en él. 

Las características 
gráficas del QL ocupan 
32K de las 128K que 
trae. Esta capacidad de 


memoria, ampliable a 
640K, puede parecer 
excesiva а! usuario 


acostumbrado a las 48K 
del Spectrum, pero se 
queda pequeña con cier- 


ов 


ta rapidez еп ип изо рго- 
fesional, 48К de ROM 
incluyen el sistema ope- 
rativo (ООО$) y el BA- 
SIC; sus características 
son comentadas poste- 
riormente. 


La parte trasera del 
aparato incluye conecto- 
res para periféricos. Una 
expansión de ROM de 
16K permite extensio- 
nes del BASIC y cone- 
хїбп de otros lenguajes o 
periféricos. А continua- 
ción nos encontramos 
dos entradas para joys- 
ticks y dos “puertos” 
RS232C para impreso- 
ras o "modem" los cua- 
tro están dotados de cla- 
vijas no "standard". La 
conexión UHF y la salida 
video vienen a continua- 
ción. La lista finaliza con 
dos conexiones para 
Red Local, análogas a 
las del ZX Interface I sin 
olvidar la ampliación 
para Microdrives (hasta 
6 más) en el lateral а 
cho. El bus de expansión, 
para ampliación de me- 
moria y periféricos, que- 


da oculto en el lado іг- 
quierdo. 

En una máquina pen- 
sada para uso profesio- 
nal no puede faltar un 
medio de  almacena- 
miento externo. Sinclair, 
fiel a los Microdrives, ha 
colocado dos en la parte 
anterior derecha del QL. 
Cada uno almacena alao 
más de 100K, con tiem- 
pos de acceso algo peo- 
res que las unidades de 
diskettes. Su fiabilidad 
ha sido puesta en entre- 
dicho, aunque nosotros 
no encontramos gran- 
des problemas en su 
uso. Тгаз la bajada de 
precio de los cartuchos 
su ünico inconveniente 
serio es la capacidad. 


En el interior del QL 
encontramos un Moto- 
rola 68008. Este proce- 
sador es el "hermano 
pequefio" de la familia 
68000. Sus registros 
son de 32 bits, y direc- 
ciona 1 Mbyte de me- 
moria. Con un bus de da- 
tos de 8 bits, hay que es- 
perar cuatro ciclos de 
memoria para "llenar" 
un registro; resulta, por 
tanto, algo más lento 
que sus hermanos. Su 
reloj interno trabaja a 7 
MHz. Para descargar de 
trabajo al 68008 en las 
tareas pesadas hay un 
microordenador, el 
8049 de Intel, que se 
encarga de la lectura del 
teclado, el altavoz y la 
comunicación serie. 


Aunque Sinclair inten- 
ta entrar en el mercado 


“profesional con esta má- 


quina, no parece fácil 
que consiga vender en el 
mercado de las grandes 
empresas, debido a la 
alta sensibilidad que 
muestran estas casas 
hacia la compatibilidad 
1BM. El OL podría enca- 
jar mejor en el campo de 
las profesiones liberales, 
así como en las peque- 
ñas empresas, donde el 
coste del ordenador y 
del software se convierte 
еп un condicionante im- 
portante. Para este tipo 
de usuarios, el QL ofrece 
una excelente relación 
precio-prestaciones, іп- 
cluyendo con la máquina 
unos paquetes de soft- 
ware que valen, a pre- 
cios de mercado, más 
que la propia máquina. 


Prototipo del teclado QL en español. 


Titulo 


comando) Cróficos formato 
y SECTOR 


ventos 


Para facilitarnos el 
“arranque” con el QL, el 
precio incluye cuatro 
programas de gestión: 
un procesador de texto 
(QUILL), una base de da- 
tos (ARCHIVE), una hoja 
de cálculo (ABACUS) y 
un programa de gráficos 
profesionales (EASEL). 

La principal caracte- 
rística de QUILL es que 
presenta en cada mo- 
mento en pantalla lo que 
aparecerá en la impreso- 
ra. Los menús de defini- 
ción de márgenes y tipo 
de letra son flexibles, 
siendo también cómoda 
la inserción y el borrado. 
El programa presenta 
opciones para cargar, 
grabar y combinar fiche- 
ros desde microdrive, así 
como la opción import, 
que permite editar tex- 
tos generados por los 
otros programas. La in- 
comprensible falta de un 
programa de mailing, 
que permitiría la perso- 
nalización de cartas me- 
diante la base de datos, 
es su principal defecto. 


Y ya que estamos con 
ARCHIVE, sigamos. Es 
un programa muy versá- 
til, donde el usuario dis- 
pone de un lenguaje de 
programación que per- 
mite la gestión de la 
base de datos “a la me- 
dida”. Similar al Super- 
Basic, admite subrutinas 
con parámetros, varia- 
bles locales y facilita la 
programación estructu- 
rada. La presentación en 
pantalla es definible me- 
diante un editor de gran 
simplicidad. 

Una característica 
muy interesante de AR- 
CHIVE es que se puede 
crear un fichero sin defi- 
nir “а priori” la longitud 
máxima de cada campo: 
el programa almacena 
registros de longitud va- 
riable. Una característica 
útil, ya que en un medio 
de poca capacidad como 
el microdrive el desperdi- 
cio de memoria se paga 
тиу caro. Existe la posi- 
bilidad de trabajar simul- 
táneamente con varios 
ficheros, ordenarlos por 


varios campos... En fin, 
sólo se le puede objetar 
la lentitud de acceso y la 
escasa capacidad de los 
microdrives. 

Una imagen vale más 
que 1K (1024 palabras). 
Y lo que hace EASEL es 
convertir nuestros datos 
en imágenes. Resulta 
con mucho е! más fácil 
de usar del paquete, ya 
que la pantalla refleja in- 
mediatamente todas 
nuestras órdenes y ajus- 
ta (si es necesario) la es- 
cala. Las opciones se eli- 
gen, por menú, con valo- 
res por defecto en casi 
todas las situaciones. 

Se puede dibujar con 
tres formatos básicos: 
diagrama de barras, lí- 
neas о “tarta”. Dentro 
de cada uno hay una fle- 
xibilidad en la elección 
de formas y colores. Si 
queremos representar 
varias figuras, el progra- 
ma "hará sitio” automá- 


ticamente. Se pueden 
introducir comentarios 
en el dibujo. 


La capacidad es sufi- 


ciente para cualquier 
uso realista y existe la 
posibilidad de “traer” los 
datos de ARCHIVE o 
ABACUS. Para copias 
en papel se requiere una 
impresora compatible 
Epson. 


ABACUS completa el 
lote de programas de 
Psion. Se trata de una 
hoja de cálculo "inteli- 
gente”. Muy útil siempre 
que tengamos que pro- 
cesar datos, aunque su 
facilidad de programa- 
ción hace que se usen 
cada vez más en todo 
tipo de problemas. ABA- 
CUS permite la referen- 
cia a filas o columnas 
mediante nombres sim- 
bólicos. También se pue- 
de cambiar a voluntad el 
ancho de cada columna 
y recorrer la tabla me- 
diante ventanas. Su 
principal defecto es la 
escasez de memoria (re- 
mediable con la amplia- 
ción) y la falta de protec- 
ción de las fórmulas. Por 
lo demás, un programa 
impecable, donde la faci- 
lidad de uso se auna con 
la potencia. 


Pese a las duras críti- 
cas que recibieron en In- 
glaterra las primeras 
versiones de los progra- 
mas, la casa ha realizado 
un considerable esfuer- SOFTWARE 
zo de mejora. En la ver- 
sión 2.01 los programas 
residen íntegramente en 
memoria, y sólo se acce- 
de a microdrive cuando 
pedimos “ayuda”. Están = 
escritos en castellano y s 
admiten los caracteres 
españoles. Les pudimos 
echar una ojeada y nos 
sorprendieron los tiem- 
pos de carga y la veloci- 
dad de ejecución. La 
guerra de precios en el 
mercado profesional es- 
pañol va a comenzar. 
Los próximos meses di- 
rán si la apuesta de Sin- 
clair le convierte de nue- 
vo en ganador. 


o5 


ENGUAJES 


Siendo el OL un ordenador 
muy poco convencional, no 
cabe la menor duda de que su 
BASIC tenía que ser poco co- 
rriente. En efecto, el Super- 
Basic se parece tan poco al 
BASIC que incorporan otros 
ordenadores, que Sinclair es- 
tuvo tentado de cambiarle el 
nombre. Pero ésto supondría 
un choque psicológico para el 
usuario que sabe programar 
en BASIC, posiblemente reti- 
cente a aprender un idioma 
nuevo. Y en muchos aspectos 
el Super-Basic es un idioma 
nuevo. 

Incorpora todas las caracte- 
rísticas standard de los dialec- 
tos BASIC más usuales. Pero 
va mucho más allá. Por ejem- 
plo, los comandos GO TO y 
GO SUB han sido incorpora- 
dos “por compatibilidad” y se 
nos recomienda que los utili- 
cemos lo menos posible. En su 
lugar, se nos recomienda el 
uso de procedimientos y fun- 
ciones. 

Los procedimientos son el 
equivalente a las subrutinas 
de otros idiomas. Para los 
poco familiarizados con el 
concepto, suponen un progra- 
ma que acepta una serie de 
parámetros y modifica unas 
variables o realiza una acción. 
En suma, lo mismo que los co- 


mandos del BASIC, pero con 
capacidad para realizar accio- 
nes complejas. 

Las funciones son análogas 
a los procedimientos, pero de- 
vuelven, como las del BASIC, 
un resultado. Ya no está 
como en el Spectrum, restri 
gidas a una sola línea. Su uso 
permite el diseño modular de 
programas, haciéndolos mu- 
cho más legibles. 

Todos los identificadores 
pueden tener hasta 255 ca- 
racteres, comenzando por una 


La definición 
de procedimientos 


permite ampliar 
el lenguaje 


letra. Esto vale para los nom- 
bres de variable, subrutina o 
función.  Análogamente а 
otros dialectos, si el nombre 
de una variable acaba en “%” 
la variable es entera, lo que 
permite ahorrar memoria; si 
acaba еп “$”, se trata de са- 
denas de caracteres. 

Otros detalles que expresan 
la potencia del Super Basic 
son las estructuras de control: 
la instrucción ІР... THEN que- 
da completada por la posibili- 
dad ELSE .. ENDIF de tomar 


una decisión si no se cumple 
la condición. Al bucle FOR ... 
NEXT se le añaden las pala- 
bras EXIT y END FOR, que 
permiten una mayor compleji- 
dad. Una construcción nueva 
es el bucle REPEAT ... NEXT ... 
END REPEAT, que, mediante 
la posibilidad del EXIT permite 
construir ciclos sin necesidad 
de referenciar nunca números 
de línea. 

En el Super Basic no exis- 
ten las funciones VAL, VAL$ y 
STR$. No son necesarias: la 
conversión entre números y 
cadenas es realizada automá- 
ticamente por el intérprete. 
Por ejemplo, a = "2" + “3” de- 
vuelve 5 en a a$ = “2” + "3" 
deja a$ = "5" y a$ = “2783 
deja “23” еп a$. Un concepto 
potente, llamado coerción. 

La unión de un lenguaje al- 
tamente estructurado, de po- 
tentes sentencias de control, 
con una gran cantidad de co- 
mandos que explotan todas 
las posibilidades de la máqui- 
na, más su fácil extensibilidad 
mediante código máquina, ha- 
cen que este lenguaje merez- 
ca efectivamente el prefijo de 
Super con que sus creadores 
lo han calificado. Uno de los 
puntos más fuertes de esta 
máquina, como candidata a su 
uso para el aprendizaje. 


Otros lenguajes 


Los compiladores e intér- 
pretes de otros lenguajes para 
el QL han aparecido con una 
rapidez inesperada. Hasta el 
momento se pueden encon: 
trar tres ensambladores dis- 
tintos, dos compiladores de 
Pascal, un Forth... Incluso len- 
guajes difíciles de encontrar 
para microordenadores, como 
el Lisp, el APL, el BCPL o el C, 
han арагесійо rápidamente 
para el QL. La razón es simple, 
se trata de una de las primeras 
máquinas de precio asequible 


que llevan un procesador de la 
familia 68000, a la que todos 
auguran un gran futuro. Y las 
casas de software se han lan- 
zado a producir para estar ins- 
talados cómodamente cuando 
se amplíe el mercado. Lo que, 


de rebote, redunda en benefi- 
cio del usuario que quiera pro- 
gramar en estos idiomas. En 
futuros números os contare- 
mos más acerca de estos len- 
guajes, que sonarán “a chino” 
a muchos lectores. 


als 


Aplicaciones made іп Spain 


Las casas de software no 
ven al QL como un ordena- 
dor de juegos, y piensan se- 
riamente en las aplicacio- 
nes. 
Investrónica ya está pre- 
parando programas de nó- 
minas, contabilidad, agen- 
da, paquete de arquitectura 
(mediciones y presupues- 
tos, cálculo de pórticos y de 
estructuras) y diversas apli- 


caciones “verticales” para 
médicos, abogados, nota- 
rios, etcétera. 

Alsi comercial está adop- 
tando sus programas Spec- 
trum para la facturación, 
control stocks, mailing, le- 
tras de cambio, y hasta un 
programa especial para 
dentistas. 

Son tan sólo dos ejem- 
plos de lo que nos espera. 


|y МОМ 


Easel: aplicaciones “еп serio”. 


Hasta ahora, en este corto 
suplemento QL, hemos visto 
las características principales 
del ordenador. Pero nos había- 
mos dejado lo más importan- 
te: su buena aceptación por el 
püblico y casas de software 
made in Spain. Este es el caso 
de Pedro Pérez, consejero de- 
legado de World-Micro, quien | 
nos da sus impresiones, des- ! 
pués де ип largo año de traba- 
jo con el OL: “Investrónica ya 
no es aquella casa que posi- 
blemente por casualidad trajo 
el ZX81, ahora es una empre- 
sa seria y esto da confianza, | 
Sobre todo si ев ип producto 
Sinclair. Pero lo más impor- 
tante es que ala gente le gus- 
ta el ordenador. Es cierto que 
cuesta mucho introducir al 
cliente, pero le sientas frente a 
la máquina y ve lo que puede 
hacer y a qué precio, después 
no quiere otro.” 
Pocos son los que conocen 
que QL es el nuevo ordenador 
Sinclair, pero poco más saben | 
de él, como indica Pedro. 
“Vienen diciendo que quieren | 
ver esa máquina de dos “са- 
charritos' pequeños. Hay que | 
ser serios, esto es un ordena- | 
дог que tiene ип soporte de іп- | 
formación de 200 К al precio 
aproximado de 130.000 pe- 
setas, cuando los equipos de | 
la competencia de prestacio- | 
nes similares, están por enci- | 
ma de las 220.000 pesetas.” = | 
Sin embargo, no sólo llama | 
la atención su precio, sino es- APLICACIONES 
pecialmente los programas de | 
aplicación de Psion, lo que de- 
nota un interés por parte de un 
püblico más profesional: “Уа- | 
loran mucho los cuatro pro- 
gramas. La mayoría de nues- —— 
tros clientes son pequeños = 
empresarios y no están intere- 
sados en programar, les falta 
el tiempo o la afición. En estos 
casos adaptamos el Archive a 
sus necesidades, pero no te- 
nemos previsto hacer progra- 
mas a medida.” 


Este dossier ha sido realizado por 
Santiago Gala, con la colaboración de 
Juan Arencibia y Miguel Gómez. 


Qu 
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coma, а continuación el valor de 
LOB que se acaba de calcular, otra 
coma, a continuación el valor de 
HOB y por último una coma. Al 
final de la sentencia DATA toda- 
vía tiene que haber un 999, 

8. Ejecute el-programa (RUN), 
tecleando la misma dirección de 
comienzo que la que se puso en el 
punto anterior y con la clave de- 
seada. Los bytes del código máqui- 
na estarán presentes en la memo- 
ria. 

9. Guarde (SAVE) estos 229 


bytes como CODE, y también la 
clave como CODE justo al final de 
la cinta con el programa, después 
del último bloque del programa. 
Observe que el programa cargador 
se cambió para que pudiera cargar 
los bytes de la rutina, la clave y la 
ejecute, 


Cuando todo se ejecute, el pro- 
grama cargador en BASIC, cargará 
todos los bloques de datos, in- 
cluyendo la rutina, la clave y antes 
que nada llama a la rutina de segu- 
ridad, que pasará el control al pro- 
grama principal una vez introduci- 
da la clave correcta. La rutina no 
vuelve al BASIC porque la hemos 
cambiado para que ejecute directa- 
mente el programa que se encuen- 
tra en la memoria. 

Finalmente, evite utilizar claves 
que le sean familiares al ser éstas 
demasiado obvias: distritos posta- 
les, nombre de animales, números 
de teléfonos, etc. 


1 POKE 
S INPUT ' 
Р? "pd 
10 CLEAR rt 
20 DIM h(é): 


09,15 


DIM 1(6) 


ЗО ІМЕШТ "Direccion del codigo 
(longitud = 227 bytes): "za 
40 INFUT "Valor del offset: "; 2 

v 60,50, 
SO LET v=INT v: IF у<0 OR v> 


В THEN GD TO 40 
60 LET offset-v 


donde situo el RAMTO 


do el codigo" 


200 DATA 175,50,1 


29.92.24 


132,2 


«11,3,61,61,61,61,61,61,61,61,61 
210 DATA 61,61 


.69,78,84,69, 


542; 


129,92,254,4 
240 DATA 4,92,60, 


50,205, 107 


,144,1,17,144,1,17 144,1 


70 INPUT "Direccion del buffer 2,17, 1(3 5) h í 
de entrada "ib 260 DATA = 0,1,1 C19,h (15 
80 INFUT "Direccion de la clav 120,92,54,0,25,54,0,62,2,190 
е: "ір 270 DATA 1.199,58 
90 LET h(1)=FN h(b): LET 1(1)= 4,197,53,151,1, 17, 
FN 1 (b) 280 DATA 2,1 
100 LET h(2)=FN híp): LET 1(2)= et,2,3,254, 1 *offset, 40,8,58,4 
FN 1(р›) 290 рата 9 O 
110 LET h -ЕМ Һ(азб): LET 1 (3 s1(1),h(1) 
3=FN 1 (аға) 300 рата 5+о##ве, 190, 
120 LET h(4)=FN h(a-42): LET 1( 40,17,19, .17,1(4),Һ(49 
М 1‹а+42) 310 DATA 1,8 5,60,52,14,1,2 
JO LET h(5)=FN h (a+50): LET 1< 4,11,17,1<(5).һҺ(5),1,8, 


М 1 (a+5C 


140 LET h(&é)=FN h (a+58) : 


6) =FN 1 (a+58) 

150 INFUT "Clave? " 
" THEN GO ТО 150 
160 LET р%=р%+СНК% 1 
TO LEN p$: 
DE p$)): 
190 CLS 


NEXT f 
FRINT АТ 10, 


ір%: 


POKE f*p-1.offset-(CO 


о рата .14,0,6,8, 
LET 14 6,128,119,2%, 
O DATA 118,16 
IF р%=" (6) «h (6) , 205 
40 RESTORE 20 
FOR £21 50 READ т: IF ғак 


Е а. 
360 


LET 


7; "Volcan 


a=a+i 
DEF FN h (uW) -INT 
70 DEF FN 1(u)-u-256XFN h(u) 


1030 RMeRT ` 
1040 CM:CT 


1050 GOTO 1990 ` 
1060 T*T(RM;CM) 
1070 GOSUB 2620! 


informática 
con Spectrum 


La progresiva introducción de la іп- 
formática en los centros escolares 
plantea toda una serie de nuevas cues- 
tiones, tanto a los educadores como a 
los profesionales de la computación. 
Nos proponemos abordar con esta se- 
rie de artículos distintos aspectos que 
afectan al tema y sugerir, en la medida 
de nuestras posibilidades, algunas res- 
puestas a estas inquietudes, acercando 
a nuestros lectores experiencias y co- 
mentarios que les puedan ser de algu- 
na utilidad. 

En los dos números anteriores de 
esta revista comentamos a grandes ra: 
gos el Logo, lenguaje concebido espe- 
cialmente con fines didác- 


La elección deuna 
configuración adecuada 


La elección de un determinado equi- 
pamiento responde a las necesidades 
que se deseen satisfacer. En la gestión 
administrativa de una empresa, según 
sea el tipo y el volumen del trabajo que 
requiera ser mecanizado, será la elec- 
ción del ordenador o de los ordenado- 
res más adecuados, así como los pro- 
gramas y los periféricos necesarios pa- 
ra llevar a cabo las tareas que se deter- 
minen. De igual manera, lo que se desee 
hacer con los ordenadores en la escuela 
determinará la elección de los mismos. 


Descartaremos en principio el uso 
de los ordenadores para la gestión ad- 
ministrativa de un centro escolar, ya 
que en este sentido no se diferenciaría 
mayormente de las necesidades de una 
empresa. Llevar una contabilidad, las 
fichas del alumnado, los pagos de cuo- 
tas, el envío de cartas, las compras de 
material, las nóminas, etc., son activi- 
dades más o menos comunes a cual- 
quier otra empresa. 

Donde sí existen verdaderamente di- 
ferencias importantes es en la utiliza- 
ción de los ordenadores para desarro- 
llar una actividad de enseñanza. En 
este sentido será el “proyecto pedagó- 

gico” lo que determinará 


ticos, aunque, por su “ро- 
tencia” y su alcance, puede 
perfectamente exceder este 
marco. 

En este número tratare- 
mos sobre el “аша de in- 
formática”. Desearíamos 
sin embargo que el título 
de este artículo no induz- 
са a pensar que la infor- 
mática deba ser tratada 
necesariamente en un es- 
pacio físico determinado, 
es decir, en un aula; como 
tampoco desearíamos que 
los lectores pensaran que 
el uso de los microorde- 
nadores en la escuela 
deba ser destinado exclu- ТЖ) 
sivamente а la enseñanza 
de la informática. 

El uso de ordenadores 
en la educación crea una 
problemática nueva y 
mucho más reciente en 
España que en otros paí- 
ses. Muy lejos estamos de 
pensar que sobre el parti- E 
cular esté todo dicho, por 
lo que, sin el ánimo de 
сгеегпов los poseedores 
de la piedra filosofal, ex- 
pondremos algunos de los £ 
criterios que considera- 
mos importantes a la hora 
de instalar un aula infor- 
mática en el centro escolar. 


Cuál es el equipamiento 
más adecuado. 


¿Ordenadores 
o microordenadores? 


Los que nos acercamos a 
la informática por vez pri- 
mera y nos encontramos 
poderosamente influidos 
por el contexto en el que vi- 
vimos, tenemos la idea de 
que un ordenador es un ca- 
charro potente que guarda 
una enorme cantidad de in- 
formación, muy parecido a 
una máquina de escribir y 
que responde a nuestros re- 
querimientos con una velo- 
cidad casi instantánea. 
También sabemos que algo 


ИН. 


así ез caro y que sólo lo tie- 
пеп los bancos у empresas 
о alguna que otra persona 
adinerada. Por otra parte, 
tenemos la idea de que un 
microordenador es un ju- 
guete sofisticado en el que 
podemos librar todo tipo 
de hatallas con seres extra- 
ños, al alcance de nuestros 
bolsillos y que quizá con él 
podamos cmpczar a intro- 
ducirnos en el mundo de la 
informática. 


Dia a día crece la preocupación por la introducción de la informática 
en las escuelas, sin que por el momento exista una 
definición clara del ministerio. Ello redunda en la elección 
de equipos poco adecuados, en algunos casos, y en una deficiente utilización 
de los mismos, en la mayoría de los casos. Miguel Figini, experto en 
aplicaciones informáticas a la enseñanza, nos da su visión sobre el tema. 
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Aunque la mayor parte de esto sea 
cierto, este conocimiento superficial 
genera toda una serie de prejuicios que 
debemos desechar si queremos llevar a 
cabo nuestra intención de equiparnos 
para una labor educativa. 

No todos los centros escolares pue- 
den equiparse con ciertos ordenadores, 
que si bien les ofrecen excelentes pres- 
taciones, sus precios son también de- 
masiado elevados para el presupuesto 
con el que se cuenta. El problema radi- 
ca en la cantidad de unidades de que se 


podria disponer para atender a un cur- 
so completo (de unos 30 a 35 alum- 
nos). Desalienta la idea de que tengan 
que haber más de dos alumnos por or- 
denador, ya que sabemos que en estas 
condiciones el rendimiento de nuestro 
trabajo no sería el más adecuado. 

Sin embargo, si analizamos más a 
fondo las prestaciones que debemos 
exigirle a un ordenador para la ense- 
fianza de la informática en la escuela о 
para el uso de programas educativos, 
podremos concluir que una experien- 
cia asi al alcance de prácticamente 
cualquier escuela. 

ЕІ primer requisito a exigir es que el 
ordenador cuente con la posibilidad de 


soportar lenguajes de programación 
que puedan ser utilizados por todo el 
alumnado del centro, desde los más 
pequeños a los mayores. En resumen: 
si se trata de un centro de EGB, que no 
sólo trabaje con BASIC, ya que margi- 
naría а los alumnos de la primera eta- 
pa o los limitará a frabajar con unos 
pocos programas educativos. Un mi- 
croordenador que funcione también 
con Logo sería un requisito indispen- 
sable. Y aün más: que el Logo, por sus 
características (ver nümeros de febrero 


y marzo de TODOSPECTRUM), este 
en la lengua materna del alumnado. 
En cuanto al BASIC es importante 
que éste sea lo más estándar posible y 
que su Editor sea simple y rápido. El 
Spectrum ofrece en este sentido carac- 
terísticas interesantes, ya que no per- 
mite al usuario introducir una línea en 
el programa si su sintaxis no es correc- 
ta. Este control que realiza el ordena- 
dor es muy útil con principiantes. ¿A 
cuántos de nosotros nos ocurre en 
otros ordenadores que al terminar de 
escribir un programa y al ejecutarlo 
comenzamos a leer en la pantalla los 
errores de sintaxis cometidos? Ya bas- 
tantes problemas tenemos en conse- 


guir que los programas hagan lo que 
deseamos, para tener que luchar tam- 
bién con la sintaxis. 

Si bien con estos dos lenguajes se 
puede cubrir un amplio ?spectro edu- 
cativo, sería de desear que el ordena- 
dor pudiera utilizar además otros len- 
guajes de programación; entre ellos el 
más interesante a nivel educativo es el 
PASCAL por su valor estructural. 
Para la Formación Profesional debería 
determinarse si el COBOL es impres- 
cindible. Desde nuestro punto de vista 
este es un lenguaje que se 
está abandonando en la 
programación de gestión y 
tampoco pensamos que la 
labor sea la de formar pro- 
gramadores. 

La utilización de lengua- 
jes de programación debe 
tener un sentido formativo, 
debe permitir el desarrollo 
de capacidades intelectua- 
les más que el aprendizaje 
de la programación. 

En cuanto a la “poten- 
cia” del ordenador (que de 
una manera un poco sim- 
ple medimos en “Kas”), lo 
más importante es que ten- 
ga capacidad suficiente 
para cargar todos aquellos 
programas que queramos 
utilizar con fines educati- 
уоз. 

Un ordenador que cuen- 
te en el mercado con un 
buen catálogo de ргорга- 
mas educativos y con una 
bibliografía extensa con 
programas comentados que 
pudiéramos consultar en 
clase, seria lo más adecua- 
do. También es importante 
que la mayor parte de estos 
programas estén еп caste- 
llano, ya que su máximo 
aprovechamiento depende de ello. 

Si bien, el tiempo de carga de un 
programa para utilizar en la escuela así 
como la velocidad de acceso a la infor- 
mación, no es tan crítico como en una 
empresa, el ordenador debería contar 
con la posibilidad de utilizar no sólo 
cassettes como fuentes de almacena- 
micnto de información. Aunque сі 
cassette sea un medio económico y su- 
ficiente para comenzar, debemos pen- 
sar que la experiencia tiene que desa- 
rrollarse y el ordenador debe soportar 
este crecimiento. En este sentido, la re- 
ciente aparición еп el mercado de dis- 
kettes para el Spectrum pone a este mi- 
croordenador а la par con otros de si- 


aparecidos hasta ahora. 


Núm. 1+250 різ. 

Cómo usar el microdrive/Progra- 
mación Basic/Ampliación Basicare/ 
Rutina despertador/Variables del sis- 
tema/Entrada datos mediante másca- 
ras/Protección del software/Sintoni- 
се su Spectrum/Programas. 


Núm. 3+250 pts. 

Novedades sonimag '84/Ampliando el 
Basic/Programas para ordenar pro- 
gramas/Gráticos соп el VU-3D/Len- 
guaje Forth/Archivos en microdrive/ 
Programación de ип interface de im- 
presora/Programas. 


Núm. 5-250 різ. 

Floppys para Spectrum/Diseño asis- 
tido por ordenador/64 Caracteres por 
línea/Juego de la vida/Pascal/Asi ha- 
cemos las portadas/Control de еуа- 
luaciones/Programas. 


(cada tapa es para 6 ejemplares) 


Complete su colección de 


Todospectrum 


A continuación le resumimos el contenido de los ejemplares 


Núm. 2.250 pts. 

Gráficos profesionales/Desplaza- 
miento pixel a pixel/Utilización de 
rutinas/Construcción del interface 
centronics/Programas de utilidad pa- 
ra microdrive/Rutina reset en código 
máquina/Análisis del editor de textos 
Tasword/Interfaces para impresoras/ 
Programas. 


Núm. 4250 pts. 

De profesión: programador/Consola 
para el Spectrum/Comparación códi- 
go máquina-Basic/Análisis programa 
contabilidad /Calendario/Pascal/Pro- 
gramas. 


Núm. 6 +250 pts. 

Representación de funciones/Todos 
los caminos conducen a la ROM/Jue- 
gos/Pascal/Construcción de un lápiz 
óptico/Programas de gestión. El SITI/ 
Logo: tortugas para todos/Interrup- 
ciones del Z-80/Programas. 


> 5 eni 
Código máquina 
para ampliar ei BASIC Се типсіопев 


SUS EJEMPLARES DE 


SIN NECESIDAD DE ENCUADERNACION 


Para hacer su pedido, rellene este cupón HOY MISMO 


Todospectrum 


Ruego me envien los siguientes ejemplares atrasados de TODOS- 


PECTRUM 


Por favor envienme 


y envíelo а: 
Bravo Murillo, 377 
Tel. 733 96 62 - 28020 MADRID 


al precio de 250 pts. 
tapas para la encuadernación de mis 


ejemplares de TODOSPECTRUM, al precio de 600 pts. más gastos de envío 


El importe lo abonaré 


O POR CHEQUE O CONTRA REEMBOLSO O CON MI TARJETA DE 
CREDITO О AMERICAN EXPRESS O VISA О INTERBANK 


Número de mi tarjeta: [TT T 
Fecha de caducidad 


NOMBRE 
DIRECCION 
CIUDAD 

PROVINCIA 


ПП 
Firma 


milares características. Рог otra parte, 
el abaratamiento de los cartuchos para 
el Microdrive hace también de este úl- 
timo una instancia intermedia entre el 
cassette y el diskette a costes razona- 
bles y con prestaciones que mejoran 
ampliamente las de un cassette. 

Desde el punto de vista del creci- 
miento de una experiencia informática 
en la escuela debemos exigir que nues- 
tra configuración pueda enlazarse en 
una conexión en red. La primera y más 
simple utilidad de una red 
es la posibilidad de carga 
simultánea de programas 
en todos los ordenadores, 
Requisito importante si 
queremos trabajar con pro- 
gramas educativos о con 
otro lenguaje diferente al 
que trae el ordenador de fá 
brica. 

Otra mejora que introdu- 
се la red es la posibilidad 
de un uso compartido de 
periféricos, como diskettes 
e impresora, con lo que po- 
dria reducirse el presupues- 
to enormemente. Un uso 
más sofisticado de la mis- 
ma posibilita la interactivi- 
dad entre estaciones y po- 
dría permitir que el profe- 
sor desde un equipo con- 
trolara el desarrollo de un 
determinado trabajo. 

Consideramos que la red 
no es ur requisito indispen- 
sable en un aula informáti- 
ca, pero la posibilidad de 
tenerla puede permitirnos 
mejoras interesantes. 

En cuanto a las pantallas 
podemos exigir que nuestra 
aula esté equipada o bien 
con monitores de fósforo o 
de color o bien con televi- 
sores. Un equipo que nos 
permita elegir entre estas distintas ор- 
iones será lo suficientemente flexible 
como para que determinemos qué es lo 
más adecuado según nuestro presu- 
puesto. 

La calidad gráfica y el uso del color 
son elementos que ofrecen grandes po- 
sibilidades en la enseñanza. 

Aunque los monitores cstán pensa- 
dos especificamente para un uso infor- 
mático, no debemos descartar la posi- 
bilidad de utilizar televisores, ya que la 
escuela puede emplearlos con otros fi- 
nes tales como determinados trabajos 
en video, etcétera, 

Lo que sí es importante es que haya 
una buena imagen que no dañe la vista 


y que no desmerezca las cualidades 
que en este sentido tienen los microor- 
denadores. 

Hasta hace poco tiempo se discutía. 
no sin razón, sobre si un teclado profe- 
sional, es decir, similar al de una má- 
quina de escribir, era el que mejores 
prestaciones ofrecía en la escuela. 

No dudamos que la robustez del te- 
clado tiene su importancia ya que los 
alumnos someten a los equipos a ver- 
daderas “palizas”. Pero un teclado de 


estas características también aumenta 
el coste de un equipo de una manera 
importante. Lo que debemos desechar 
es la idea de que un ordenador en la es- 
cuela debe ofrecer las prestaciones de 
una máquina de escribir. En este as- 
pecto debemos alejarnos de nuestros 
prejuicios ya que los alumnos jamás 
tendrán que introducir en el ordenador 
información en cantidad ni con la rapi- 
dez que exige el uso del mismo en una 
empresa, 

Comentaremos ahora un elemento 
que en general no se suele tener en 
cuenta y que, sin embargo, según nos 
relataban los responsables del tema en 
Gran Bretaña en las Jornadas sobre In- 


formática y Educación, debería apre- 
ciarse más. (Jornadas celebradas en 
noviembre del año paado en Madrid y 
organizadas por el Ministerio de Edu- 
cación). 

La experiencia pedagógica puede 
verse francamente beneficiada si el 
alumnado puede tener en casa el mis- 
mo ordenador que también tiene en la 
escuela. La posibilidad de trabajar con 
programas que se están utilizando en el 
colegio, el intercambio de experiencias 
entre los alumnos y la posi- 
bilidad de que ellos generen 
por su mente programas 
que puedan utilizarse en la 
escuela, crea un marco so- 
cial de aprendizaje de di- 
mensiones interesantes. 
Este elemento nos decanta 
hacia equipos con un pre- 
cio accesible a la familia, 
siempre y cuando reúnan 
también el resto de las con- 
diciones. 

Finalmente, sólo поз 
queda por comentar la im- 
portancia de un manteni- 
miento barato y rápido. 

Recomendaríamos muy 
especialmente la compra 
de ordenadores que estén 
respaldados por una garan- 
tía y un servicio técnico Па- 
ble. Es cierto que un orde- 
nador puede comprarse 
sólo por su buen precio; 
pero cuando se trata de una 
implantación en la escuela 
para que todo el alumnado 
trabaje con ellos no pode- 
mos descuidar el servicio 
postventa. Aqui les reco- 
mendamos que se dirijan a 
profesionales del sector que 
estén especializados en el 
tema educativo ya que les 
podrán asesorar sobre mu- 
chas otras cuestiones que implican el 
uso de un aula informática: la disponi- 
bilidad de cierto sofiware educativo, сі 
entrenamiento en el uso de los equi- 
pos, la formación del profesorado. la 
confección de programas a medida 
para realizar algün proyecto determi- 
nado, etcétera. 

Podemos concluir, por todas estas 
razones, que un microordenador que 
cumpla estos requisitos básicos será 
suficiente para iniciar una experiencia 
pedagógica con ordenadores en el cen- 
tro. 


gl 
Miembro del equipo de asesores de 
loshua 


* Ordenadores personales Hard y Soft. 
* Cursos de Basic. 


Oficina RENOVACION EN MARCHA, S. A. 
С/ Espronceda, 34. 28003-MADRID 
Тіпо. (91) 441 24 78 


REMSHOP 1 
Galileo, 4. 28015 MADRID 
Tfno. (91) 445 28 08 


REMSHOP 2 
C/ Dr. Castelo, 14. 28008 MADRID 
Tino. (91) 274 98 43 


REMSHOP 3 
C/ Modesto Lafuente, 33. 28003 MADRID 
Tfno. (91) 233 83 19 


REMSHOP BARCELONA 
С/ Pelayo, 12. Entresuelo J 08881 BARCELONA 
Tino. (93) 301 47 00 


REMSHOP LAS PALMAS 
C/ General Mas de Gamindez, 45. LAS PALMAS 
Tfno. (928) 23 02 90 


Guia del comprador de Todospectrum 


DISTRIBUIDORES DE 


NEW BRAIN Deseo recibir contra reembolso: 
DRAGON-64 Nombre del programa 
CASIO FP-200 ME LO ENVIAN A 
PPZ дыл РЫДА e RE ЕНЕ D. 
ELECTRONICA SANDOVAL, S. A. Calle 
С/ SANDOVAL. 3. 4. 6. 28010-MADRID Población 


Teléfonos: 445 75 58 - 445 76 00 - 445 18 70 


CLUB DEL JUEGO 


COMPRA — VENTA 
PROGRAMAS DE OCASION 
ZX 16-48K 

Entre otros: Space Raiders, Time Gate, Fro- 
ggi, Billar Americano, Harrier Attak, Figther 
Pilot, Tunel 3 D, Styk, Scuba Dive, Base 
Datos, Ajedrez Cirus y 600 títulos más, ріде- 
nos el tuyo. 


ELECTRONICA 
з SANDOVAL sa 


COMMODORE-64 
ORIC-ATMOS 
ZX SPECTRUM 


Por sólo 900 ptas. más gastos de envio, 
puedes conseguir tu programa preferido, ga- 


SINCLAIR ZX 81 rantizados y comprobados 
ROCKWELL'-AIM-65 Pidenos gralis nuestro catálogo de pro- 
DRAGON-32 Queue 


Rellena este cupón 


Teléfono (si tienes) 
447 42 01 
C/ SANDOVAL, 4 y 6 
Centralita 445 18 33 (8 lineas) 


ENVIAR A: CLUB DEL JUEGO 
Apartado Correos 34.155 BARCELONA 


COMPUTIOUE 


SI posees un Spectrum y —o un QL, 
Si dominas el código Máquina, 

51 te gusta la programación y 
puedes escribir un buen programa 


ІСОМТАСТА CON NOSOTROS! 


COMPUTIDUE 


C/ Embajadores, 90. 28012 MADRID 
Tfno. 227 09 80 - 227 91 99 


(5 micr-ogesa 


TODO EN MICROINFORMATICA 


SINCLAIR, AMSTRAD 


7 SPECTRAVIDEO, KATSON. 


EN CAMAFEO nc. 


IMPRESORAS, MONITORES, PERIFERICOS) 
PROGRAMAS EDUCATIVOS, GESTION, 
` 


CAE Siva, 5-4? Tel. 242-24-71 


DE CALIDAD PROBADA Z- AERIS 


PARA ORDENADORES 


CBETG 
\ I = 
e APPLE * COMMODORE 
e SPECTRUM e AMSTRAD 
e SPECTRAVIDEO ө DRAGON 
OFERTA MES DE ABRIL 
En importes superiores a 25.000 ptas. 
Vale obsequio 10% descuento para su 
Barquillo, 15 - Tel. 232 57 37 
MADRID 


жый) 


* La mayor variedad de libros de microinformática, 
de satisfacer todas sus necesidades, ya 


capac 


profesionales, familiares, culturales... 


Libre de gastos de envio conira reembolso correos 


José Lázaro Galdiano, 1. 28036 Madrid. 


FACTURACION SPECTRUM 


Un pro 


p 
20 229 p ama que le permite realizar 


Oler 
Albaranes 
иго de Stocks 


CAMAFEO mc. Оероз 


Un sólo programa de 


Listas de Precios 
20 Ficheros diferentes 
1000 Articulos 


faci! manejo con microdrive 
con 20 ficheros de clientes, 


4D0 Fichas. proveedores, articulos, etc. 


ALSI, S. A. Antonio López, 154. 
Tel. 91/475 43 39. 28026 MADRID 


Librería y Editorial 
Microinformática, le ofrece: 


nicas de Programación; Robótica, etc., en cualquier 
Sid desde el más básico al más avanzado, para sacar el 
imo beneficio, diversión y provecho a su ordenador. 


* Todo tipo de información bibliográfica sobre micro- 


ordenadores, desde AMSTRAD a Sinclair QL; 


Lenguajes y 


—————--IIllIlllllll----2-—- 4 


Por favor, anoten las materiasde su interés. 

Ï Ordenadores personales. 

р Sidispone,especifiquemarca 
Aplicación a: 


| ' NEcocios. CASERA 
I JUEGOS. OTROS. 
Ocupación 


| Comentarios 


A e eis 


EDUCACION. 


À copiG 
Л PROVINC \А 


"fer prit! 


ЗУ ee 
X cl Coco. 28033 MADRID. elet. 764 30 95 


Situación: lluviosa tarde de ип 
frio domingo de invierno. Cuatro 
amigos sin dinero se reúnen mi- 
rando sin ver cl aburrido programa 
de nuestra mejor televisión. De re- 
pente, uno de ellos sugiere una 
partida de Monopoly: pero, ila- 
mentable!, no tenemos Monopoly. 

Si esta ha sido vuestra situación 
Os sugiero una solución: tomar 
vuestro Spectrum e introducir el 
programa que acompaña a este co- 
mentario. Para utilizarlo, leer estas 
instrucciones. 

Como sabéis, el Monopoly esun 


juego de sociedad cuyo objetivo con- 
siste en intentar arruinar a los adver- 
sarios mediante diversos negocios. 
Una vez hayáis tenido la inmen- 
sa paciencia de cargar todo el pro- 
grama, así como los caracteres grá- 
ficos y las matrices que le acompa- 
йап, grabaréis el mismo con Save 
"Monopoly" Line 1. Debéis tener 
en cuenta que nunca se debe ejecu- 
tar con “RUN”, pues borraréis las 
distintas matrices introducidas. 
Por ello, cuando queráis comenzar 
una partida debéis utilizar 
GOTO 5: al hacerlo obtendréis: 


“Número de jugadores”. 
Aquí debéis contestar con un 
número entre 2 y 4. 


Orden de juego 


Para establecer el orden de jue- 
go, cada jugador irá presionando la 
tecla “D” haciendo de esta manera 
funcionar los dados. El jugador 
que más puntuación saque jugará 
primero haciéndolo los demás de 
acuerdo ya con sus posiciones rela- 
tivas a este jugador. En caso de que 
se diera un empate por el primer 


puesto, entra еп funcionamiento 
una rutina de desempate. 


Movimiento 


Cada jugador irá presionando su 
número de acuerdo con el orden 
preestablecido, al hacerlo pone en 
movimiento los dados, cuando és- 
tos se paren la ficha correspon- 
diente comenzará a moverse al nú- 
mero indicado. 

Si la tirada fuera capicúa el juga- 
dor volverá a tirar. 


Comprar calles 


Una vez realizado el movimien- 
to, el jugador tendrá la opción de 
comprar la calle donde ha саїйо, 
siempre y cuando no haya sido 
previamente adquirida. 

Para realizar la operación se 
presiona la tecla “С”, inmediata- 
mente el ordenador realizará la 
transacción. 


Vender calles 


Un jugador podrá vender una o 
varias calles a otro jugador me- 


D Hogamas 


4 LOAD #"m";1;"dados"CODE USR 


DIM + (4 
G(9,4): DIM H(9,6): DIM p(2): 
M r (38): DIM t (4): DIM z(4): 
S(4): DIM d(5): DIM b$(38,9 
IM N(2): RANDOMIZE 

7 LET B$(1)= 
) 213"; LET B%( 15": LE 
T B$(4)-"19210": LET В% (5) ="1621 
9": LET B$(6)="161 LET B$(7) 
="16140": LET B&(B)-"16115" 
BE(9)="16085": LET Ве (10 
О": LET B$(11)="13118": LET B$(1 


210"; LET B$(2 


2)="15148": LET B$(13)-"13178" 
LET ве (14) ="12219": LET B&(15) 
10217" 

9 LET b$(15)-"07210": LET 5% 
17)="0 LET b$(18)="01217" 
LET b$(19)-"00170": LET Б%(20)- 
00142": LET b$(21)-"00110" — ^ 

11 LET BS( "00082": LET B$( 

LET B$(24)-"O1019": 

"04016": LET B&(24)— 

LET НФ (2 10016": LET 
16" 

B$(29)="16010": LET БФ 

1901 1а" 


LET B$(32) Е 
"29014" 

15 LET В%(24)-"29059": LET В%( 
35)="29080": LET B$ 29111": 
LET B&( "29140": LET B$(38)= 
"29171" 

18 FOR TO 38: LET B$(1,6 Т 
O 8) ="0000": NEXT I 


DIM a$(2,0,2) 
20 LET a$(1,1)="AB": LET a$(1, 
"EF": LET a$(1 "кез LET a 

LET a$(,5)9"KG": L 
мы" 


20 LET a$(2,1) LET a$(2, 
2)-" IF"; LET a$(2,3)-"CL": LET a 
": LET a$(2,8)-"HL': L 


ор" 
23609,255: 
LET y 
тзлт 9,11 


РОКЕ 
35 LET 
NT AT 8,1 


ва TO 
cts 


diante la tecla “У”, Al hacerlo, se 
preguntará qué jugador es el ven- 
dedor y cuál el comprador. Des- 
pués preguntará si lo que se vende 
es un grupo; si lo es se contestará 
con el número de la primera calle 
a vender y el dinero en que fijamos 
la venta. 

Grupos posibles: 

(3, 2) (6, 8, 9) (11, 12, 13) (15, 
17, 18) (20, 22, 23) (25, 27, 28) (30, 
31, 33) (36, 38). 

Lo anterior no rige para las esta- 
ciones: 

(5, 14, 24,34). 


Edificar 


Cuando se ha logrado comprar 
todas las calles que tengan el nú- 
mero del mismo color saldrá un 
mensaje de grupo completo. А 
partir de entonces, se podrá edifi- 
car. Para ello se pulsará “z”, con lo 
que aparecerá la pregunta: 

“Número calle 1 del grupo”. А 
lo que deberemos contestar evi- 
dentemente con el número de la 
primera calle del grupo a edificar. 


“Número de casas”. Debemos 
dar un número entre 1 y 4, depen- 
diendo ello del dinero que tenga- 
mos. 

Una vez colocadas las 4 casas se 
podrá edificar un hotel y sólo uno 
por calle del grupo. 


Caer en calle de un adversario 


Cuando un jugador caiga en una 
calle de algún adversario deberá 
pagar el alquiler correspondiente 


37 PRINT AT 8,1 


ш 

40 LET NUM1=3:: LET numenumi: 
60 SUB 9000 

45 LET &-19: LET numid=3: GO 8 
UB 9000: LET у=у+1:: GO SUB 9050 
: LET num-numl 9: LET nu 
manumi: GQ SUB 9050: LET y=y+1 

50 LET х=9: LET num2-2: LET nu 
m-num2: 60 SUB 9000 

55 LET x=19: LET num2d=2: LET 
numsnum2d; BO SUB 9000: LET y=y+ 


GO SUB 9050: L 
50 SUB 905 


1: LET num=num2d 


LET num=num2: 


Оз LET y=y+1 
60 LET x=9: LET num3=1: LET NU 
M=NUM3: GO SUB 9000 


9: LET num 
50 SUB 9000: 
ШЕТ num=num3d: GO SUB 9050 
umi: GO SUB 9c 
TQ 2 


PRINT AT 4+i, 
BRIGHT ij" PRINT 
BRIGHT 15" 
93 LET COR: 
97 NEXT I 
100 FLOT 0,24: DRAW 
0,144: DRAW 248,0 
110 FLOT 24,0: DRAW 
219,0: DRAW 0,170 A 
120 PLOT 96,24: DRAW 0,96: DRAW 
48,0: DRAW 0,-96: PLOT 120,2. 
DRAW 0,96 

FOR 1-1 TO B 
140 FLOT 2441,0: 
T 24x1,145 
150 NEXT I 
180 FOR 
170 FLOT 
9, 142 
NEXT 
186 FOR 1=1 
190 FLOT 
200 NEXT I 
240 GO SUB 92. 
260 PRINT AT 16,21: "РАБО 
3,4; "CAJAS"; AT 12,4: "JUGA. 
290 RETURN 

295 IF NJ 
310 INPUT 
“зм 


FLOT 


0,168: FLOT 


DRAW 0,24: FLO 


T 


175 


TO 3 
96,24+1#24: 


DRAW 48,0 


АТ 1 


0 THEN GD TO 
"NUMERO DE JUGADORES: 


320 LET р(2) LET p(1 
60 SUR ss 
LET JUG=1 
LET PY=9: FOR i-1 TO nj 


IF 110-0 THEN LET Di1)=150 


PFINT АТ 21; "SALDO" 
PRINT AT py,2 
LET py-py*2 
NEXT i 
PRINT AT 13 
ED 

7 IF LIO-1 THEM RETURN 

PRINT FLASH 13AT 4, 


E 'D' FARA TIRAR": LET NJ 
ET 
410 IF INKEYS="D" OR INKEYs-"d" 
AND FRU<=NJ1 THEN GO SUB 900: 
LET FRU=FRU+1 
IF NJ1=1 THEN GO TO 460 
IF NJ1<>1 AND FRU-NJ! THEN 
LET FRU-O: ВЕЕР 1,7: GO SUE 930 


0: DIM 8(4) 
50 GO TO 410 
4&0 PRINT AT 4,4" 


470 FOR і-і TO nj: LET taje 
NEXT i 
475 LET r (1 LET ia 


FRINT AT 


TO nj: PRINT 
а LET ax 
THEN LET a 


INVER 


490 NEXT 1 

495 LET BI 

500 IF capi-i AND #¿(hr)<>O THEN 
LET fthr) LET сәрі 

AT 17,44" : 60 TO 


502 IF capi-i THEN LET 
LET jug=jug-1: PRINT АТ 
lse p para tirar": PRINT 


БОЗ IF díhr)<0 THEN GO 


TO 7000 


504 IF JUG=NJ+1 THEN LET JUG: 
505 PRINT AT 12,10; FLASH 1:205 
507 IF INKEYS-"v" OR INKEY 
THEN 50 SUB 7800 

510 IF capi 

UG THEN BEEF .1,-7 

Үз: GO SUB 9910 


512 IF capi-2 AND (ІМКЕҮФ 


THEN PRINT AT 4,4 


R INKEY&-"P") 
роф: LET 1$-S5TR$ jug: LET capi=0 
: GO SUR 9910 

515 IF INKEYS="d" OR INKEYS="D" 
THEN ба TO 7400 

520 IF INKEY: " DR INKEYS-"I" 
THEN 60 SUB 2500: LET LIO: 

0 SUB 25: GO SUB 295: LET LIO: 

50 SUB 8500: 60 SUB 2000: Gh 

B 8700 

530 IF INKEYS="C" OR INKEYS= 
THEN GO SUB ¿000 

540 IF INKEYS="2" OR INKEYS= 
THEN GO SUB 5000 

560 IF INKEYs-"H" OR INKEYS: 


THEN GO TO 7070 


570 IF INKEY: " THEN 60 SUR 
7500 

600 60 TO 500 

Boo STOF 

940 LET fin=50 

950 FOR I-1 TO 2 

960 LET X=1041-1 

990 LET CON-4: LET FIN=INT !RND 
x6)+1 

1000 FOR j-1 TO fin 

1010 LET у=6 

1020 LET num=CON: GD SUB 9050: L 
ET NUMO-num 

1025 LET Y=Y+1: GO SUB 9000: LET 
у=у+1 

1050 LET NUM=NUM1: 50 SUB 9050 
1055 LET Y=Y+1: LET NUM=NUM2: GD 
SUB 9000: LET y-V+1 

1057 LET NUM=NUM2: GO SUB 9050: 
LET Y=Y+1 

1050 LET num=num3: 60 SUB 9000 
1060 LET у=, 

1070 LET num=NUMO: 60 SUB 9000 
1080 LET Ү-Үжі: LET NUM-NUMO: GO 
SUB 9050: LET Y=Y+1 

1090 LET num=NUM1: 60 SUB 9000 
1100 LET Y=Y+1: LET NUM=NUM1: GO 
SuB LET Y=Y+1 

1110 LET num=NUM2: 60 SUB 9000 
1120 +1: LET МИМ=МИМ2: GD 
SUB 

1130 LET NUMZ-NUMZ: LET NUM2=NUM 


1: LET NUMI-NUMO 
1155 LET CON=CON+1: LET N(I)-NUM 


al estado de la calle. Esta орега- 
ción es realizada automáticamente 
por el ordenador. 


Hipotecar 


Cuando un jugador necesite di- 
nero podrá conseguirlo, después de 
tirar hipotecando una calle de su 
pertenencia. Para hacer esto exis- 
ten dos modalidades: 

— бе desea hipotecar una calle: 


Hogramas 


sólo hará falta dar el número de ésta. 

— Se desea hipotecar una casa 
de un grupo: se introducirá el nú- 
mero de la primera calle del grupo 
y a continuación el número de ca- 
sas a hipotecar. 

Recuérdese que el precio de la 
hipoteca es la mitad que el de com- 
pra. 

Ningún jugador podrá comprar 
una calle hipotecada, pero su due- 
ño ya no cobrará alquiler. 


Si se desea salir de esta opción se 
pulsará “0” cuando se pregunte 
“número de calle a hipotecar”. 

Existe la opción inversa que se 
obtiene mediante "D". 


Información (I) 


Se puede obtener información 
sobre los títulos de propiedad pre- 
sionando I. 


2222222222 2224 cos et cic asm: mcme —a amma ca 


1137 IF CON=7 THEN LET СОМ: 

1140 NEXT J 

1150 NEXT I 

1152 LET сар1=0 

1155 IF n(1)=n(2) AND Bio<>0 THE 
N LET сар PRINT AT 17,4; BR 
IGHT 1; FLASH DOBLE": BEEF 1, 
25: FAUSE 10: ВЕЕР 1,50 

1160 LET TI-N(2)*N(1): FRINT АТ 
9.533" — "3AT 9,5; TI: LET S(FRU+ 
1)-TI: BEEF .5,7 

1170 RETURN 

2000 2 THEN GO TO 7250 
2002 THEN 60 TO 5100 


2003 LET arc=0: LET al=5: LET ci 
fu=4: GO SUB 8100: LET al-5: LET 
cifu=23: 50 SUB 8100 


OS IF pil)*p(2) THEN LET p(2) 
1 
2010 FOR ізі TO nj 


2020 IF t(i)=p(1) 


THEN LET arc= 


arc*i: LET ztarc)=i 

2030 NEXT i 

2040 IF ағс<2 THEN LET р(1)= 
60 TO 2047 

2045 IF arc THEN LET ci-ar 
LET cifu-4: LET cif=41 LET al=S 
: GO SUB 2120 

2047 LET ағс-о 

2050 FOR ісі TO nj 

2060 IF tli)=p(2) THEN LET arce 
arc*i: LET z(arc)-i 

2070 NEXT i 

2080 IF ағс<2 THEN LET pt 


RETURN 
2085 IF arc>=2 THEN LET ci-arc: 
LET cifu-23: LET cif=23: LET al 
GO SUB 2120 

RETURN 

O FOR s=1 TO сі 

2130 PRINT INVERSE 1;AT al.CIF; 
z (s) 

2140 LET CIF=CIF+2 
O IF s=2 THEN 
LET г1-7 

2160 NEXT s 

2165 LET ar=z (1) 
2166 IF tlar)=0 THEN 
scifu+t;"38"1 RETURN 
2167 PRINT AT &,cifu+*1;ttar) 
2170 RETURN 

2250 IF сарі-і THEN 


LET CIF=CIFU: 


PRINT AT & 


60 TO 2306 


2254 IF £(hr)-0 THEN GO TO 2300 
PRINT АТ 4,5; "QUIERE SALIR 
CARCEL? (S/N) " 


2255 


DE LA";AT 5,749" 


2260 IF INKEY 

THEN LET рі=5000: GO SUB SX 

GO SUB 8510: LET dthr 

: 60 SUB 8320: GO SUE 

UB 8360: LET fthr) 

2270 IF INKEYS="N" OR INKE 

THEN LET fíhri-F(hri-1: FRINT 

AT 4,3508; AT 5,7," 

"z RETURN 

2280 60 та 2255 
О LET NF-HR 

2301 IF tíhr)-38 DR t(hr)=0 THEN 
BEEP 1,7: LET t(hr)-0: LET D(H 


(HR)*20000: PRINT AT 7«2Xhr, 
FLASH 1;9 (ғ): GO SUB 9950: 
(hr) 

LET TI=TI- 


21; 


PRINT AT 7+24hr, 21 


2302 


LET 


LET ESD=T (HR) : 
fin=esd+ti 

2303 LET Ki-esd 

2304 IF fin>=38 THEN ВЕЕР 1,7: 
LET D(HR) =D (HF) +20000: PRINT AT 
7*2khr.21; FLASH 1;d(hr): 60 SUB 
9950: PRINT AT 7+2#hr,2140(hr) 
2305 FOR K=ESD TO Жіп: ВЕЕР .05, 


-10 
2306 
308 
ооо 
310 LET t(hr)=t(hr)+1: LET SE; 
T(HR): LET ov-0: 60 SUB 9500 

2315 IF t(hr)=38 THEN LET tthr) 
: LET k 
2320 LET SEA: 
60 SUB 9500 
2525 LET ki=k1+1 


IF K=39 THEN LET К1=1 
IF r (kl1+1)=1 THEN : GO TO 8 


=T (HR) LET ov= 


2330 NEXT K 
2332 IF k1=0 THEN LET r (38) 
LET +r 60 TU 2340 

2335 LET fre LET r(ki)=1 
2340 FOR e-1 TO nj 


2350 IF t(s)=esd THEN 
reti: 
2360 


LET fr 


LET z (fre) =s 
NEXT = 


AND esd=0 THEN 
RETURN 


LE 


2370 IF fre=0 THEN LET r(esd)=0 
: RETURN 

2380 IF fre=1 AND esd<>0 THEN L 
ET sea=esd: LET nf=z (1): LET ov 


0: 50 SUB 9500: RETURN 
2382 IF fre=1 AND esd=0 THEN LE 
T sea-38: LET п4-г(1): LET ov=C 
50 SUB 9500: RETURN 
2385 IF fre>l AND esd=0 THEN LE 
T sea=38: LET ру=0: LET #%=" "z 
50 SUB 9505: RETURN 
2290 LET sea-esd: LET £$-" ": LE 
Tavor BU-SUB 50у — — — — - 
RETURN 
LET PRO=VAL Ве (РБА, 6) 
3005 LET LON1=K (FRA): LET XA=4+( 
20-LON1)/2: PRINT AT 4, ХА; СФ (FRA 
‚1 TO LONI) 
3006 IF Q(FRA,1)>0 AND Q(FRA,7) 
O THEN LET XS-STR$ (Q(FRA,4))+ 
PTS": LET XA=9+(10-LEN X$)/2: P 


RINT АТ 5,XA;X$: PRINT AT 5,Х6;0 
$(1 TO 10): GO TO 3010 


2007 IF Q(FRA,1)>0 THEN LET X$- 
STR$ (2kü(FRA,B))*" PTS": LET XA 
=9+(10-LEN ХФ) /2: PRINT АТ 5,ХАҙ 
X$: ВЕЕР 1,24: PAUSE 25: PRINT à 
T 5,9;:0$(1 TO 10): 60 TO 3010 


3008 IF Q(FRA,1> 
100 

3015 LET PRO=VAL ВФ (ЕКА, 6) 

3020 IF Q(FRA,1)=-1 OR Q(FRA, 1) = 
O THEN PRINT АТ 4,50%: PLOT 24 
0: DRAW 0,168: GO TO 3500 

3030 IF B$(FRA,é)=STR* HR OR B$( 
FRA,6)="0" OR B$(FRA,9)="H" THEN 
* PRINT AT 4,4;0%: RETURN 
3040 IF Q(FRA,6)=0 THEN LET СА: 


<=0 THEN PAUSE 


G(9,PRO): LET USU=G(FRA,CA): GO 
TO 3065 

3062 IF BR(FRA,7)<>"0" THEN LET 
CA=VAL B$(FRA,7): LET USU-Q(FRA 
,1+CA): 60 TO 3066 

3064 IF B$(FRA,8)<>"0" THEN LET 
USU-B(FRA,6): GO TO 3066 

3065 IF b$(ra,7)-"O" AND bt(fra 


,8)="0" THEN LET USU-Q(FRA, 1) 
2070 PRINT AT 4,5; FLASH 1; "CALL 
E DEL JUGADOR "¿PRO 


3085 PRINT BRIGHT 1;АТ 17,21;0B 
5 usu 


3087 PRINT AT 7+2#HR,21; FLASH 1 
iD(HRP): GO SUB 9950: PRINT AT 7 
+28HR, 215% " 


La cárcel е la casilla número 
10, sin embargo cuando un juga- 
dor va a esta casilla se considera 
que hace una “visita a la cárcel” y 
no hay penalización. Cuando un 
jugador saca una tarjeta de suerte 
que le mande a la cárcel o cae en la 
casilla de la flecha, será sanciona- 
do con una multa de 5.000 pesetas 


03 turnossin tirar. Si еп uno de es- 
tos 3 turnos al lanzar los dados ob- 
tuviera un doble, saldría libre au- 
tomáticamente. 


Bancarrota 


Un jugador se puede declarar en 
bancarrota tecleando “Space”. 


3090 LET D(HRF)-DIHRP)-USU 
3100 PRINT AT 7+2xHFR,21;" 
AT 7*2Xhr.21; FLASH 1;D(HRF): GO 


SUB 9950: PRINT AT 7%2%НЕ,21:рі 
НЕР) 
3120 LET D(FRO)=D (PRO) +060 


3130 PRINT AT 7+24PRO, 213" 

"SAT 7*2kpro,21: FLASH 1;D(PF0): 
GO SUB 9950: PRINT AT 7+24FRO,2 

13D(PRO) 

3140 PRINT FLASH 15AT 4,5;"OFER 

ACIDN REALIZADA": GO SUB 9950: P 

RINT AT 4,5:0%: PLOT 24,0: DRAW 

0,168 

3150 PRINT АТ 17,213" > 

2200 RETURN 

3500 IF ТН 
RETURN 

3502 IF t(hr)=29 THEN GO TO 

= 

3505 IF t(hr)=37 THEN LET pti=- 

10000: LET caja=caja+i0 50 8 

UB 8400: GO TO 8350 

3510 IF t(hr)=4 THEN LET pt1=-2 

0000: LET caja=caja+20000: GO SU 

B 8400: GO TO 8350 

5515 IF T(HR)-19 THEN LET PTi-C 

AJA: LET CAJà-O: GO SUB 8400: GO 
TO 8350 

3520 LET pre=INT (27XRND)*1: LET 
longi-v(pre,1): LET longz-v(pre 

,2) 

3525 LET n$-u$(pre,1,1 TO longi) 

LET m$-u$(pre,2,1 TO long2) 

3530 LET x1=3+(24-LEN пФ) /2 
#2=3+(24-LEN m$)/2: LET y 

ET y2-: 

3550 PRINT АТ yl.xi5n$ 

3560 PRINT АТ y2,x2;m$ 

3580 GO TO (3580+5kpre) 

85 LET pt1-20000: LET tim=100: 


© OR T(HR)= 


THEN 


363 


LET 
L 


60 TO 8350 
3590 LET tim= LET pti-2500: 
GO TO 8350 

3595 LET tims100: LET pti-10000: 
GO TO 8350 

3600 LET hri=hr: FOR w-1 TO n; 
3601 IF wé»hri THEN LET PT-1000 
: LET tim-50: LET d(w)-diw)-ptz 
LET hr GO SUR 8300: GO SUE 87 
10: GO SUB 60 SUB 8340 


3602 NEXT w 


3603 LET hr-hri: LET pti=nj*1000 


: 50 TD 8350 

3605 LET ti=39-t (hr): 
O: GO SUB 8360. 
10 LET pt 
50 TO 8350 


3615 LET pt1=100004 LET tim-100: 
80 TO 8350 
3620 LET tim=100: LET pti-2000: 
80 TO 8350 


3625 LET ti=90-t (hr): 
0: GO SUB 8360; 
3630 LET pt 
60 TO 8350 


GO SUB 225 
60 TD 2i 
1 LET tim=100: 


3635 IF t(hr)410 THEN LET ti=10 

(hr): GO SUB 2500: LET #(hr)=3 
: 60 SUB 8360: 60 TO 2000 
тата IF t(hr)>10 THEN LET ti-48 
=t(hr): GO SUB 2300: LET f(hr)-3 

LET pti=-20000: GO TO 8350 
5840 LET pti--10000: LET tim-100 
: GO TO 835 
3645 LET pti-10000: LET +іт=100: 
50 TO 8350 
3650 LET pti=-5000: LET tim=100: 
50 TO 8350 

colc: LET colh=0: LET 

саз=4000: LET hot=11000 
тебе FOR i-i TO 2 
3657 IF VAL b$(i,6)=hr THEN LET 
colcecolc«VAL b$(,7): LET colh 
=colh+VAL be(1,8) 
3658 NEXT i 
3659 LET pt1=-(caskcolc+t 
Y: LET tim=100: GO TO 8 
3660 LET pt1=-2000: LET tim=100: 
50 TO 8350 
3665 LET pti=100 LET ti о 
50 TO 8350 
3670 GO TO 34 
3675 LET pt LET tim-100: 
50 TO 8250 
3680 IF tíhr)«z8 THEN LET ti=28 


=t (hr.) : 


>28 THEN 
-t(hr): GO SUB 2250: GO SUB Б 
GO SUB 3 60 TO 2000 

3685 LET pt ©: LET tim= 
: 50 TO 8350 

3490 LET cas-2500: 
50 TO 3656 

3695 IF t(hr)<27 THEN LET ti 
-t(ne?: GO SUB : GO SUB 5360 


1 


LET hot 


: GO SUB 2000: 60 TO 20 
3696 IF t(hr);28 THEN LET ti= 
-t(hr): GO SUB 2250: GO SUB 8360 
: GO SUB 3000: GO ТО 2000 

3700 IF t(hr)<11 THEN LET ti-ii 
-t(hr): 60 SUB 2250: GO SUB 8340 
: GO SUB 3000: GO TO 2000 

3701 IF t(hr)>11 THEN LET ti-49 
-t(hr): GD SUB 2250: GO SUB 8360 
: 60 SUB 3000: GO TO 2000 
3705 IF t(hr)48 THEN LET t 
(hr): GO SUB 2250: GO SUB 8360 
GO SUB 3000: GO TO 2000 

3706 IF t(hr)>8 THEN LET ti=46- 
t(hr): GO SUB 2250: GO SUB 8360: 
GO SUB 3000: GO TO 2000 

3710 LET pti-15000: LET tim-100; 


-t 


GO TO 8350 
2715 60 TO 3635 

5000 LET Hi LET H1-0 

5010 INFUT "NUMERO CALLE 1 DEL G 
RUPO "; NP 

5020 IF B&(NP,7)-"4" THEN LET H 
1-і: LET М GO TO 5070 


5050 INFUT "NUMERO DE CASAS ";NC 
5070 LET 11-0: LET can-3: LET IN 
I=VAL B$ (NF, 5) 

72 IF INI=0 THEN PRINT AT 4,4 
OPERACION NO PERMITIDA": PAUSE 
100: PRINT АТ 4,4;0%: RETURN 
5073 IF H(INI,S)=1 THEN PRINT A 
T 4,3; "OPERACION NO PERMITIDA": 
PAUSE 100: PRINT АТ 4,308: RETU 
RN 

5075 IF G(INI,HR)<>Z AND (INI<>1 
AND INI«»3) THEN PRINT AT 4,4; 
"OPERACION NO PERMITIDA": PAUSE 
100: PRINT АТ 4,4508: RETURN 
5080 IF inl-3 OR ini-i THEN LET 
сап-2 

5085 IF БСІМІ,НЕ) 


›2 AND (INI=1 


OR INI=3) THEN PRINT ӨТ 4,4;"0P 
ERACION ND FERMITIDA": PAUSE 100 
: PRINT АТ 4,4;0%: RETURN 

5086 FOR 1=1 ТО CAN 

5087 IF Q(NP+11,1)<=0 THEN LET 
I1=11+1: LET I=I-1: 60 TO 5080. 
5088 IF B&(NP*I1,9)-"H" THEN PR 


INT AT 4,4;"Operacion no permiti 
da"; ВЕЕР 1,22: PAUSE 25: PRINT 
АТ 4,4:о%: RETURN 

5089 NEXT i 
5090 LET FTi- 


INCKG (NF, 7) Xcan 


OFERTA DE SUSCRIPCION 


REVISTA EXCLUSIVA PARA USUARIOS 


Te ofrece la posibilidad de suscribirte con unas condiciones 
тиу ventajosas para ti: 


] Recibir puntualmente, en tu domicilio la publicación 
TODOSPECTRUM que durante 12 meses te ргорогсіопаға 
lectura, programas, avuda, entretenimiento, etc. 


Consigue un práctico regalo: 


Una obra fundamental en la biblioteca 
de los aficionados al Spectrum: 


Esta publicación, escrita con estilo 
ameno y práctico, te ayudará a sacar 
todo el partido posible a tu máquina. 


3 La opción de ser protagonista. Tú puedes tener una 
participación directa con tus comentarios, programas, 
sugerencias, etc. 


4 Obtener premios importantes con tus programas, y temas 
de interés. 


EN DEFINITIVA, TODO SON VENTAJAS 


No dejes pasar esta oportunidad, suscríbete 


a “TODOSPECTRUM”, cumplimentando hoy mismo el cupón 
| de respuesta adjunto. 


BRAVO MURILLO, 377 -5.° A | 
TELEFONO: 733 74 13/47/63/97 28020 MADRID 


Al hacer esto aparece ип mensa- 
je de seguridad, si éste se contesta 
afirmativamente se procede a reti- 
rar el saldo de este jugador pasan- 
do a ocupar su número el jugador 
que tuviera el número superior a 
él. Por ejemplo, si están jugando 4 
Jugadores y se retira el 2 ocurriría 
que el 1 seguiría siendo el 1, pero 
el pasará a serel 2 y el 4 pasará a 
serel 3. 


Matrices 


Las matrices listadas (ver datos 
anexos) han de cargarse indepen- 
dientemente del listado. Estas ma- 
trices serán luego grabadas perma- 
neciendo de este modo en cinta, 
pese a que no estén en el listado. 
Observe que en el listado se carga 
esta información directamente de 
microdrive (línea 4). 


S IF d(hr)*ptico THEN PRINT 


AT 4,8; BRIGHT 1;"NO HAY FONDOS" 
+ ВЕЕР 1,17: FAUSE 50: PRINT AT 
0%: RETURN 
7 LET MAR=1: GO TO 8350 


5100 LET 11 
1 TO can 
5110 IF q(np*il,1)« 
iizilei: LET ізі-і: GO TO S130 
$115 IF hi=1 THEN LET b$(np*il, 
7)="0": LET b$(np*il,G)-"1": LET 
iieii*i: GO TO 5130 

5120 LET cras=VAL Ь%(пр+і1,7) +пс 
LET b$(np*il,7)-STR$ cras 
5125 LET 11=11+1 

S130 NEXT i 


LET mar=0: FOR i= 


0 THEN LET 


5200 IF МЕ<-5 DR (пр>-14 AND np 

=18) OR (NF>=24 AND NP<33) THEN 

LET OX-VAL BS(NF,1 TO 20-1: LET 
OY=VAL E&(NP,3 TO 4) 

IF (МЕУІБ AND МР<24) OR (NF 

33 AND NP<=38) THEN LET OX=VA 


L BS(NF,1 TO 
Р,5 TO 4)+1 


2» 


LET OY-VAL B*(N 


IF np>5 AND пр<10 THEN LET 
VAL БФ(МР,1 TO 2)-1: LET OY- 
BS(NP,3 TO 4)+1 

IF пр>10 AND np<14 THEN LE 

T OX=VAL B$(NP,I TO 2)+1: LET OY 

=VAL B$(NP,S TO 4)+1 

5245 IF (пр>10 AND пр<14) OR МР< 

5 OR (пр>=14 AND np<=18) OR (NP 
>33 AND NF<=38) THEN LET VeR=-1 

5246 IF (NF>18 AND NF<=33) OR (n 

р>5 AND пр<10) THEN LET VAR=1 

5247 IF Hi=0 THEN LET CAR=VAL B 

$ (NF, 7) 

5248 IF Ні-і THEN LET CAR=4 

5250 LET H(INI, 1 LET намі, 

2)-0Y: LET HCINi Hi: LET H(IN 

1,6)=NP: LET OX LET OY1=0Y 

5251 LET H(INI,4 LET H(INI 

,5) «МАҢ: BO TO 5253 

5252 LET OX1-H(INI,1): LET OYi-H 

(INI,2); LET HI=H(INI,3): LET CA 

R=H(INI, 4): LET VAR-H(INI,S): LE 

T NP-H(INI, 6) 

S253 FOR 1-1 ТО G(INI,HIR) 

5255 LET crom=0 

5260 FOR 1=1 TO САК 


5270 IF пр<=5 OR (пр>=14 AND пр< 
718) OR (пр>-24 AND np<=33) THEN 
PLOT 0X146, 168-Dy1XB-varkcrom: 


DRAW 0,4: DRAW 4,0: DRAW 0,-4: 
DRAW -4,0: IF Н1=1 THEN PRINT A 
T 0y1,0x1; "B" 

5260 IF (np>5 AND np<14) OR 
18 AND пр<24) OR 
38) 


(пр 
(пр>55 AND np 
THEN PLOT Ох1#8.25+уаг*сгот 


.158-Dyí*B: DRAW 0,4: DRAW 4,0% 
DRAW О,-4: DRAW 74,0: IF Hl=1 TH 
EN -PRINT RT 0Y1,0713 "E" 


5285 LET cron=crom+S 

5290 NEXT I 

5500 IF NP OR (пр>=14 AND np< 

=18) OR (NP>=24 AND NP. ) THEN 
LET OX1-OXi*3XVAR: IF q(np+;j,1 

)<=0 THEN LET oxi=0x1+3kvar 


5210 IF (np>5 AND пр<14) OR (NP> 
18 AND NP«24) OR (NP>33 AND NP. 
38) THEN LET OY1=0V1-VARAZ: IF 


а(пр+з,1) <=0 THEN LET oyicayi-v 
ar #3 


5320 NEXT j 
5500 BEEF 1,14: RETURN 

6000 LET FRA=t (hr) 

6010 IF FRI THEN LET FRA=38 
6060 PRINT AT 4,7; FLASH 1; "ОКПЕ 
N DE COMPRA": ВЕЕР 1,7 

6070 IF Q(FRA,1)=-1 OR Q(FRA,1 


O THEN PRINT FLASH 1;AT 4,45"0 


PERACION МО PERMITIDA": ВЕЕР 1,6 
2 PRINT АТ 4,4;0%: RETURN 
6075 IF БФ (FRA, &)<> THEN PRI 


NT FLASH 1;AT 4,5; 
GADOR ";B$(FRA,6): ВЕЕР 1,6: PRI 
NT AT 4,4;0%: RETURN 

$080 GO SUE 8200 

6085 IF D(HR)-PRICO THEN PRINT 
AT 4,4;06;АТ 4,8;"NO HAY FONDOS" 


"CALLE DEL JU 


: ВЕЕР 1,7: PRINT АТ 4,4;06: RET 
URN 

6090 LET ВФ (ЕКА, 5) =8ТАФ HR 

809% LET pt=pri: LET tim=100: GO 
SUB 8300 

6100 GO SUB 8310 

6110 LET D(HR)-DtHR)-PRI 

5120 GO SUB 8320 

6140 PRINT 


FLASH 1;АТ 4,5; "OPER 
ACION REALIZADA": ВЕЕР 1,5: PRIN 
T AT 4,4;0% 

6150 LET IN1=VAL В% (ЕВА, 5) 

6160 LET G(IN1,HR)=G(IN1,HR)+1 
6165 IF G(IN1,HR)=2 AND ІМІС>І A 
ND ini=3 THEN PRINT BRIGHT 1;A 
T 4,7: "GRUPO COMPLETO", ВЕЕР 1,7 


: BEEF 1,7: PRINT AT 4,4;0% 
6170 IF G(INI,HR)-3 AND IN1<>9 A 
ND IN1<>3 AND INI<>1 THEN PRINT 
BRIGHT 1;6T 4,7; GRUFÜ COMPLET 
0": ВЕЕР 1,7: ВЕЕР 1,7: PRINT АТ 
4,4;0$ 
6180 IF G(IN1,HR)=4 AND IN1-9 TH 
EN PRINT BRIGHT 1;AT 4,7;"GRUP 
O COMPLETO": BEEF 1,7: BEEF 1,7: 
PRINT AT 4,4;0% 


6190 PRINT OVER 1;AT 17,21,PRI 
6200 RETURN 
6550 CLS : LET JUGA=1 


6560 PRINT АТ 8,3; "1 
LOS TITULOS" 

6570 PRINT AT 11,33"2 - VER UN 
TITULO" 


- МЕК TODOS 


6580 PRINT АТ 14,3;"3 - VER TITU 
LOS DE UN JUGADOR! 

6585 FRINT AT 17,33"4 - SALIR" 
6590 INPUT "OPCION: "¿OP 

6595 IF DF-4 THEN RETURN 

6600 LET РКІМ=1: LET FINI 

6610 IF ОР=2 THEN INPUT "CUAL? 
";CALL: LET PRIN=CALL: LET FINI= 
CALL 

6620 IF OF=3 THEN INPUT "CUAL? 
ШЕШЕ 


6690 LET caos=1 
8700 FOR I=PRIN TO FINI 

6705 IF OP=3 AND VAL E$(1,6)<>JU 
GA THEN 60 ТО 6800 
6710 CLS : LET LOND=K(I) 
6715 LET IN=VAL B%(1,5): 
=0: LET BR=0 
6720 LET XA=4+( 
6725 IF IN=9 THEN 


LET INV 


LOND) /2 
LET INV: 


6730 IF IN=8 THEN LET IN-3: LET 
BR=1 
6735 IF IN=7 THEN LET IN=5: LET 
BR=1 
6740 PRINT ІМК IN; BRIGHT BR; Y 
NVERSE INV;AT 3,XA-3;C$(1,1 TO L 


омо. I: PRINT : PRINT 

6742 IF G(1,1)«-0 THEN GO TO 67 
87 

6743 IF IN-9 THEN GO SUB 6850: 
60 TO 6785 

6745 PRINT "Precio de compr 
ТАВ 20:2Xq(i.8): PRINT 0%(1) 
6747 FRINT "For pasar: AB 29; 
qG,1) 

6750 FOR J=2 


TO & 


6760 PRINT D$(J);TAB 20;caostq(i 
22) 

8770 NEXT 2 

6772 PRINT D$(7) 

6774 PRINT D$(B); TAB 20;0(1,79: 
PRINT D$(9);GCI,7) 
8778 PRINT D$(10): 
TAB 20;0(1,8) 

6785 PRINT : FRINT 
IEDAD DEL JUGARDOR BSC, 6) 
6786 IF o; THEN _ PRINT #81; "Pul 
зе una telca": FAUSE О: 60 TO 68 
оо 

8787 IF ор=1 THEN FRINT#1;"Ful 
зе una tecla para continuar R pa 
ra retroceder S para salir": PAU 
SE o 

6790 IF INKEYS="S" 
THEN 60 TO 6500 


PRINT D$(11); 


PRINT "PROP 


OR INKEY$="s" 


6795 IF INKEY$="R" OR INKEY$="r" 
AND i>i THEN LET 2: GO TO 
4800 

4797 IF INKEYS="R" OR INKEY$=" 
AND i-1 THEN LET i-37 


6800 NEXT I 

6810 IF ОР=: 

$e una tecla 

6840 60 TO 6500 

6850 PRINT "Precio de compra 

B 20320000: PRINT "ALQUILER" 

6860 PRINT "Con 1 estacion"; ТАВ 

2032500: PRINT "Con 2 estaciones 
TAB 20,5000 

6870 PRINT "Con 3 estaciones";TA 

в 201100901 PRINT "CON 4 estatio 

nes";TAB 20320000: PRINT "HIFOTE 

СА: ":ТАВ 20:10000 

6880 RETURN 

6900 STOP 

7060 PRINT АТ 4,7;"Sin fondos, d 

ере hipotecar.": LET litu=1 

7070 INFUT "Que calle desea hipo 

tecar ";nuc 

7073 IF nuc=0 THEN GO TO 5ОО 

7074 IF nuc<=0 THEN LET jab=hr: 
GO TO 7520 

7075 IF VAL Ы% (пис, 6) нг THEN 

PRINT АТ 4,4;"esa calle no te ре 

rtenece": BEEF 1,25: PAUSE 25: F 

RINT АТ 4,4;с%: GO TO 7070 

7077 IF b$(nuc,9)-"H" THEN PRIN 

T AT 4,6; "Са11е ya hipotecada": 

ВЕЕР 1,12: PRINT АТ 4,4508: GO T 

0 7070 

7080 IF b$(nuc,7)«»"O" OR b$(nuc 

,8)4»"O" THEN GO TO 7200 

7100 IF qínue,6)=0 THEN LET pti 

710000: LET Ь%Ф (пис, 9) ="H PRINT 
АТ VAL b$(nuc,2 TO 4),VAL b$(nu 

c.1 TO 2);"H": GO TO 8350 

7110 LET pti-q(nuc,B): LET b$(nu 

c. 9) ": PRINT AT VAL b$ínuc,3 

TO 4) VAL b$(nuc,1 TO 2);"H": GO 
SUB 9289: GO TO 8350 

7200 IF b$(nuc,8)<>"o" 
max-5: G0 TO 7230 

7210 LET max=VAL b$(nuc,7) 

7230 PRINT AT 4,5; "Maximo numer. 
de casas"; AT 5,7;"a hipotecar" 

пах 

7240 INFUT "Cuantas casas hipote 

cas: "¡ven 

7245 LET ini-VAL Ь%(пиє,5): 


THEN PRINT #1; "Pul 
PAUSE O 


THEN LET 


LET 


gru=3 
7250 IF b$(nuc,5)="1" OR b$(nuc, 
5)="3" THEN LET gru=2 

7255 LET ial=0 

7260 FOR TO gru 

7270 IF qínuctial,1)<=0 THEN LE 
T ial=ial+2: GO ТО 7300 


7280 IF max<5 THEN LET b$(nuc+i 
а1,7)=5ТЕ% (max-ven): LET hlini, 
4) =max-ven 


7290 IF пах-5 THEN LET b$(nuc+i 
ai,7)=STR& (S-ven): LET b$(nuc+i 
а1,8)="0": LET h(ini,3) LET h 
(іпі,4)-5-уеп 

7295 LET ial=ial+1 

7300 NEXT i 

7310 LET pti-g(nuc, 7) &ven/2kgru 
7320 LET lio-z: 80 TO 8250 

7380 LET lio-1: GÜ SUB 35: GO SU 
B 295: LET lio=0: GO SUB 8500: 6 
0 SUB 2000: БО SUE 8700 

7360 60 TO 7070 

7400 INPUT " CALLE А DESHIFOTECA 
R "ical 

7403 IF CAL=0 THEN RETURN 

7405 IF q(cal,1)=0 OR b$(cal,9)« 
2"H" THEN PRINT AT 5,4; "OFERACI 
ON-NO PERMITIDA": BEEF 1,15: PAU 
sE 50 ТО 7400 

7406 LET IN=VAL B$(CAL,S) 

7407 IF VAL b$(nuc,é)<>hr THEN 
PRINT AT 4,4;"ESA CALLE NO ES TU 


YA": ВЕЕР 1,25: FAUSE 25: PRINT 
AT 4,4;0%: GO TO 7400 
7408 LET IN-VAL E$(1,5): LET BR= 


О: LET INV=O; LET XP=VAL B$(I,1 
TO 2): LET YF-VAL B$(1,3 TO 4) 
7409 IF IN-9 THEN LET INV 
7410 IF IN-7 THEN LET IN-S: 
BR=1 

7418 IF qínuc,6)=0 THEN LET pti 
10000: LET b$(CAL,9)="0": PRIN 
T INK ІМ; BRIGHT BR; INVERSE IN 
VAT VAL b$(CAL,2 TO 4),VAL bs(C 
AL,1 TO 2);CAL; GO SUB 9289: GO 
TO 8350 

7420 LET PT1=-G(CAL,8): LET B$(C 
AL,9)="0": PRINT INK IN; BRIGHT 
BR; INVERSE INV;AT VAL B$(CAL,3 
TO 4),VAL BS(CAL,1 TO 2);CAL: 6 
O SUB 9289: GO TO 8350 
7500 PRINT АТ 4,103 "SEGURO 
7510 IF ІМКЕУФ-"8" OR INKEY$="s" 
THEN PRINT АТ 4,7;"Espere por 
favor": GO TO 7520 

7512 IF INKEYS="N" OR INKEYS="N" 
THEN PRINT АТ 4,4:0$: RETURN 
7513 GO TO 7510 

7515 IF ;ug-n; THEN LET jal 
7517 LET jab=jug+1 

7520 FOR І-і TO 38 

7530 IF BS(I,6)<>STRS JAB THEN 
50 TO 7560 

7540 LET INI-VAL BS(1,5): 
(1,6 TO 9)-"000" 
7550 FOR W=1 TO 4: 
о 

7560 LET G(INI, JAB)=0 

7570 МЕХТ І 

7571 50 SUB 7750 

7573 FOR I=JAB TO NJ-1: LET T(I) 
=T(I+1): LET D(I)=D(I+1): NEXT I 


LET 


(S/N) 


LET B$ 


LET H(INI,W)= 


7575 IF JAB=NJ THEN LET JUG=1: 
50 TO 7700 

7580 FOR I=1 TO 38 

7590 LET B6=VAL B$(1,6) 

7600 IF Вё>=ЈАВ THEN LET Б%(1,6 


)=STR$ (Bé-1) 

7610 NEXT I 

7620 FOR 1-1 TO 9 

7630 FOR J=JAB TO NJ-1 

7640 LET G(I,J)=6(I,J+1) 

7650 NEXT J 

7700 LET NJ=NJ-1 

7710 LET LI BO SUB 35: GO SU 
LET LIO=0: GO SUB 8500: G 


O SUB 2000: 
7720 RETURN 
7750 LET cor 
7755 FOR і-і TO nj 

7760 IF i=hr THEN GQ TO 7770 
7765 IF t(i)=t(hr) THEN LET com 


GO SUB 8700 


Seomra 
7770 NEXT i 

7775 IF com=1 AND ptl)=t(hr) THE 
N LET p(1)=0 

7780 IF com=1 AND р(2) =6 (hr) THE 
N LET p(2)=0 

7785 RETUFN 

7800 INPUT "De jugador ";jugv 
7810 INPUT "a jugador "; juge 
7820 INFUT "Es un grupo? "; j$ 


IF 4$«»"n" 
50 TO 7900 


INPUT "Numero de calle "¿nu 


AND j*<>"N" THEN 


INFUT "Valor de la transacc 
tran 

LET ini=VAL b$(numc, 5) 

7870 LET g(ini, зиду) 7g (ini, jugv) 


7880 LET gini, jugo)=g (ini, juge) 
E 
7890 IF (іпі=1 OR іпі=5) AND gli 
ni, juge THEN PRINT BRIGHT 1 
"Grupo completo": BEEF 1 
‚18 
7895 IF ini<>l AND іпіс>2 AND gt 
ini,jugc)=3 THEN PRINT BRIGHT 
1;AT 4,7; "Grupo completo": BEEF 
1,18 
7895 LET b*%(numc,ë)=STR$ ugc: L, 
ET usu=-tran: LET PRO=JUGC: LET 
HRF-JUGV: GO SUB 3080: RETURN 
7900 INPUT "Valor de la transacc 
ion "tran 


7905 LET vr-VAL j$: LET inisVaL 


b$(vr,S): LET glini, зиду 
7910 IF іпізі OR ini-3 THEN LET 
g(ini,jugc)72: LET on-2 
7920 IF ini<>i OR ini<>3 THEN L 
ET g(ini,jugc)=3: LET o 


7925 LET ia 
7930 FOR i-1 TO on 

7938 IF q(vr,1)=0 THEN LET 
iai+i: LET -і: 60 TO 7930 


ial- 


7940 LET b*(vr,ë)=STF* jab 
7950 NEXT i 

7980 LET usu--tran: LET pro=juge 
і LET hrp=jugv: 60 SUB 3080: RET 
URN 

8000 LET fw=l: LET kir=k1 

8010 FOR i=2 TO nj 

8011 LET esla=klr+i 

8013 IF esla>=39 THEN LET esla= 


esla-38 
8014 IF riesla)=0 THEN GO TO БО 
25 

8015 IF ríesla)=1 THEN LET fw=f 


wl 
BO20»NEXT i 
8023 IF k+fw>=fin+l THEN GO TO 
9600 
8025 LET kkf-esla 
8050 IF t(hr)+fw<37 THEN LET су 
ті: LET sea=st (hr): GO SUB 9500: 
LET t(hr)=t(hr)+fw+1: LET ov=0: 
ШЕТ sea=t(hr): GO SUB 9500: LET 
kek*fw: LET kl=kl+fw+1: GO TO 23 
зо 
8060 IF t(hr)+fw>=38 THEN LET o 
уші: LET sea=t(hr): GO SUB 9500: 
LET t(hr)=kkf: LET оу=О: LET se 
a=t(hr): GO SUB 9500: LET ki=kkf 
: LET k=k+fw: GO TO 2330 
8070 IF t(hr)+fw=37 THEN LET se 
a=t(hr): LET оу=1: GO SUB 950! 
LET t(hr)=38: LET ov-0: LET «ғаз 
38: 60 SUB 9500: LET ki=0: LET t 
(hr) LET k=k+fw: GO ТО 2330 
8100 FOR TO 2: PRINT BRIGHT 
ЦАТ al*i,cifu;" "r NEXT is R 
ETURN 
8200 IF G(FRA,6)-0 THEN 
=210(FRA, 5): RETURN 
8210 LET FRI=Q(FRA, 8) #2 
8220 RETURN 
8300 PRINT 
S Pt: RETURN 
8310 PRINT AT 7+2#HR,21; FLASH 1 
;D(HR): GO SUB 9950: PRINT АТ 7+ 


LET PRI 


BRIGHT 1;AT 17,21;АБ 


2XHR,21;" “: RETURN 
8320 FRINT AT 7*2*HR,21; FLASH 1 
1D(HR): GO SUB 9950 


8220 PRINT AT 7*2*HR,21;D(HRO : R 
ETURN 

8340 PRINT 
Pt: RETURN 
8350 LET pt-pti: GO SUB 8300: GO 
SUB 8310: LET d(hr) 
O SUB 8520: GO SUB 83 
8340: 60 TO 1199 
8360 PRINT AT у1,2:0%+" 
AT y2,3:0$*" ": PLOT 24,0: DRAW 
0,168 

8370 PRINT FLASH 1;AT 4,5; "OPER 
ACION REALIZADA": PAUSE 50: PRIN 
T AT 4,4308: RETURN 

8400 PRINT FLASH 1;AT 14,4;CAJA 


OVER 1;AT 17,21; ABS 


: LET TIM=50: GO SUB 9950: PRINT 
AT_14,4;CAJA: RETURN 
8507 FOR Т=1 TO NJ 
8510 LET SEA=T(T) 
8520 LET NF. GO SUB 9500 
8530 NEXT T 
8540 IF P(1)>0 THEN LET ov t 
ET SEA-P(1): LET F$=" ": GO SUB 
9505 
8550 IF P(2)»0 THEN LET ov=0: L 
ET SEA-P(2): LET F$-" "; GO SUB 
RETURN 
LET ti-39-t (hr) 
FOR V=1 TO NJ 
LET HIR=Y 


FOR W-1 TO 9 
IF H(W,4)-0 THEN GO TO 873 


8720 LET IN 
8730 NEXT W 
8735 NEXT V 
8740 RETURN 
9000 PRINT АТ y,xra$(1,num): RET 
URN 

9050 PRINT AT Ү,Х;А%(2, NUM): RET 
URN 

9240 FOR I-1 TO 38 

9245 LET IN-VAL B&(1,5): LET BR- 
O: LET INV-0: LET XP-VAL B$(I,1 
TO 2): LET YP=VAi B$(I,3 TO 4) 
9250 IF IN-9 THEN LET INV=1 
9265 IF IN-7 THEN LET IN 
BR=1 

9267 IF b$(i,9)-"H" THEN PRINT 
INK IN; INVERSE INV; BRIGHT BR; 
AT YP.XP,"H": GO TO 9280 

9270 PRINT INK IN; INVERSE INV; 
BRIGHT ВРАТ YF,XPiI 

9280 NEXT I 

9282 PRINT АТ VAL b$(7,3 TO 4),V 
AL b$(7,1 TD 27,"7 "¡AT 1,1 
"AT 21,19; "I";AT 14,29: 
8,13;" "¿AT 21,7; "? "¿AT 11, 
? "JAT 1,75"? "¡AT 1,25;"? "3AT 
8,27" 2" 

9285 PRINT AT 17,094" 

9284 PLOT*96,103: DRAW 24,0: PLO 
T 96,111: DRAW 24,0 

9286 FOR I-96 TO 120 STEP 4: PLO 
T 1,96: DRAW 0,16: NEXT I 

9288 PLOT 122,176: DRAW -5,-12: 
DRAW -1,7: DRAW 1,-7: DRAW 7,7 
9289 FLOT DRAW 249,0: DRAW 
0,170: DRAW -249,0: DRAW 0,-170 

9298 RETURN 

9300 LET Wi=1: LET NJ2=NJ1: LET 
CORi=1: LET MIN-S(1): LET MAX=S( 
1) 

9310 FOR W=1 TO NJ2 


GO SUB 5252 


LET 


9320 IF S(W)>MAX THEN LET MAX=S 
(W): LET Wi=W 
9330 IF S(W)<MIN THEN LET MIN-S 


Im 
9340 NEXT W 

9350 FOR W=W1+1 TO NJ2 

9360 LET S(W-1)=S(W) 

9370 NEXT W 

9380 IF NJ2-2 THEN LET s(2)-max 
LET s(1)-min: GO TO 9410 

9390 LET S(NJ2)-MAX: LET MAX-MIN 
: LET NJ2-NJ2-1 

9400 60 TO 9310 


9410 FOR W-Ndi-1 TO 1 STEP -1 


9420 IF S(NJ1)428(H) THEN LET N 
Ji-COR1: PRINT AT 4,44" 
"¡AT 4,4: "DESEMPATE 


ENTRE ";NJ1: RETURN 
9430 LET CORI=COR1+1 

9440 NEXT W 

9450 LET пҙ1-соғі: PRINT АТ 4,4; 
e ";AT 4,6 
¿"DESEMPATE ENTRE ";NJ1: RETURN 
9500 LET f$=STR$ nf 

9505 IF SEA>=39 THEN LET SEA=39 

-38 

9507 LET pos=SEA 

9510 IF SEA=-1 THEN LET POS-37:, 
LET 0У-1: LET SEA-37 

9520 IF SEA=0 THEN LET OV=: 
T POS=38: LET SEA-38 

9550 IF SEA«-18 THEN PRINT OVE 
R оуҙАТ VAL b$(pos,3 ТП 4)-1,VAL 
b$(pos,1 TO 2); INVERSE 1;4% 
9540 IF SEA>18 AND sea<24 THEN 
PRINT OVER ov;AT VAL b$(pos,3 T 
O 4),VAL b$(pos,1 TO 2)+2; INVER 
SE 1;+% 

9550 IF sEA523 AND sea<34 THEN 
PRINT OVER оу;АТ VAL b$(pos,3 T 
D 4)+1,VAL b$(Fos,1 TO 2); INVER 
SE 1349 

9560 IF SEA»33 THEN PRINT OVER 
оузАТ VAL b$(pos,z TO 4).VAL b$ 
(pos,1 TO 2)-1; INVERSE 1;+% 
9570 RETURN 

9600 IF fin+1=38 THEN 
2 LET fin--1: LET t(hr)-O: LET s 
ea=k: LET o 60 SUB 9500: LET 
sea=38: LET ov-O: LET f "6 
0 SUB 9505: 60 TO 9620 
9602 IF fin»-38 THEN 
n-38 

9605 LET kl=k1+1: LET t(hr)=fin+ 
1 

9610 LET sea-ki-1: LET ov=1: GO 
SUB 9500: LET ѕеа=ғіп+1: LET ov- 

: LET f 50 SUB 9505 

9520.1F p(1)=-1 THEN LET p(1)=f 
іпжі GO TO 2335 

9630 IF p(2)--1 THEN LET p(2)=£ 
in+1 

9670 GO TO 2335 

9750 LET сі-2: LET z(1)=hr 

9755 FOR s=1 TO nj 

9760 IF hr=s THEN GO TO 9780 
9770 IF t(nr)=t(s) THEN LET z(c 
1) LET сізсізі 

9780 МЕХТ = 

9790 LET сізсі-і: RETURN 

9800 IF p(1)-t(hr) THEN LET pti 
)=0 

9810 IF p(2)=t(hr) THEN LET p(2 
)=0 

9820 RETURN 

9900 PRINT АТ 7+2#HR,21;" "A 
T 7*2XHR,21; D(HR) : RETURN 

9910 IF L$-STR$ JUG THEN PRINT 

AT 4,40%: LET JUG=JUG+1: LET hr 

AL 1$: GO SUB 900: GO SUB 2250 

GO SUB 2000: GO SUB 3000: GO T 

0 520 

9920 PRINT AT 4,7;"FULSE DE NUEV 

О": BEEP 1,1: GO TO 505 

9950 FOR I-1 TO tim: NEXT I: RET 

URN 


t LE 


LET k1=38 


LET fin- 


NOMBRES DE CALLE 


SALIDA 

RONDA DE VALENCIA 

PLAZA DE LAYAPIES 
PUESTOS: 20000 PTS 

DE GOYA 

VICTÒRIA 


AMINOS 


Esc 14 )=ESTA, DE 
C$C19)=AVYENIDA DE FELIPE II 


СФ 18 
ROUE GRATUITO 
A. DE AMERICA 


C& 25 PLAZA DE OPERA 
CAJA DE COMUNIDAD 


ERTA DEL 
JA DE COMUNIDAD 
AN VIA 

ESTA, DEL MEDIODIA 


IMPUESTOS: 1000A PTS 
PASEO DEL PRADO 


ROGRAMA DE INTRODUCCION 
FOR 1=1T0 38 

INPUT "CALLE: ";CSCID 
PRINT "Esc" Li" 
NEXT 1 


"ESD 


64, A 
04,230 
aca, 22% 
904.4 


DCB, 3 2300A 
r B, 4›=2г@йй 
0(8,52-400й0 
08.6 255000 


069. 4 ›=Зйййй 
0(9,5)-45000 


ix 11,1›=1@йй 
011, 2595000. 
9(11,33-15000 
011. 
0011, 
M 11.6 
911.77 
11,8) 
612,15 
012,2 


E 


xe HER 
90000 
11000 
=1275йй 


© 


TARJETAS DE SUERTE LONGITUD DE LAS TARJETAS 


y renta anual 


ІЗІ ersario reciba 
04,2 iusador 10 
1885,1 en la casilla 
ER 
USE, 1 
Шы 6,2 produce SAM р 
U$C4.23=de cada jugador 1008 pts 
=100000 U$C5.1)=Coloquese en la casilla 
‚5›=12аййй USCS,2»- numero uno. 
30006 VE. Tela venta de sú stock 


Produce S000 Pts 


huciones le 
Elven 2000 pts 
la casilla 
nera dos, 
Pague la factura del 
medico: SAAG pts YC 14,1 5=18 
се1 9614,2>-16 


0% 18,15 
STA 


(15,1 3 

° al hospital YC 15, 2 5217. 

` Ус 16,1 5=21 

16 5 

Yet 2 

su Poliza de Year D 

E NIS MEt 8 
d=Pa9ue 4000 Pts Por casal |41602 

4 11000 Por hotel. (19, 1)=18 

Multa Por enbriasnez: vt 18,2020 

ПС 16.2 >=PaQue 2000 pts, VC 28, 13-17 

USC17.15-Ha sanado el Premio de (20; 25210 
USC17 2 >=honradez: 10000 Pts, ТЕГЕН 


U$c18.1)=Vete a la casilla 

Lc >=numero 1. 

LC 13.1 =La banca arroja ип 
1U$19.20=dividendo de 5000 Pts. 


Lc Маза a la casilla 
иф 20 Mero 28, 
Pague Por Gastos 


ASAS DU 


уфе 21 
^ clares 15000 Pts. 
(е 2500 рог casa w252 


з 10969 Por Ye 26, 10-22 
Vasa a la с 1(26,2)=19 
numero 27. YC27.1 =16 


Мача а la casilla Mr 


ero 11. 
SEXTA ITUR GRAMA DE INTRODUCCION 


9970 INPUT "LONGITUD: "умет. Jo 


П%С27.12-Уаза а la carcel 9975 LPRINT "UC" p Ta" "урат 
USC 27 , 2 >= 61,22 
[5С 28,15 9977 NEXT J 
usc es. 20 9980 NEXT I 

IGITUD DE LAS CALLES 
1829,1 5=PROGRAMA DE INTRODUCCION 


S FO Ta 8 39 
D INPUT "PRECIO DE LA 3965 EDR 
CALLE: "аст, 9970 INPUT "SUERTE: " 
3975 LPRINT "QC"; T; i="; | [9975 LPRINT "USC 
U$ IJ) 
ээ? NEXT J 
S920 НЕХТ I 


г 


PROGRAMA DE INTRODUCCION 

S960FOR 1=1Т0 38 

INPUT "LONGITUD: ";k€ID 

9979 PRINT "KC" ;I;" ="; KC T 
à NEXT I 


ERES 


n HOTEL 
RECIO DE COMPRA 


€QUE, COPÍANDO DE GORRA 
EL ÚLTIMO SuPER-ÉxirO DE 


NO HAY FORMA DE 


ESTAREMOS еп Informat85 


Palacio y Ferial-Nivel7-Stand 709 
Barcelona del 16 al 20 de Abril de 1985 


(91) 73396 62 
BARCELONA 


MODULOS Ü (93)3014700 


ANUNCIESE MADRID 
por 


9070405 


. Polígono de Осһагсоара еп Bil- 
ЖАЙ Бао, aunque las condiciones urba- | 
nisticas no son las más ргорїсїаз 


Y como no todo va a ser jugar al 
monopoly, еп el descanso se puede 


mos conocer'en su domicilio del 


сото сопосегап los “usuarios del 
Norte”. 
Un bonito programa con buenos 
posibilidades didácticas. titulado gráficos, ayudado de algunos ca- 
con el nombre de “Máquinas” por racteres gráficos (subrayados). 


cargar este programa de grandes su autor, al que, por cierto, pudi- Miguel Carmona 16K 
5 REM MAQUINAS eso NEXT u 1059 NEXT u 
10 REM 1984 Miguel Carmonat B60 FAUBE zx: PRINT AT 20,0 1060 LET r=VAL #$(t) 
20 BORDER 6: FAFER 7: INK 9: 5 lse une tecla": FAUSE Ò 1070 CLS : PRINT AT 0,54а%: PRIN 
O SUE 870 CLS : NEXT s T АТ 2.2:4с9 
25 LET :х-90 882 PRINT AT О,5;а#: READ cs 1075 FOR z-1 TO 32: IF d%(t,z)=" 


30 CLS : REM Reinicio 

510 PRINT ат 0,5; "MAQUINAS SINF 
LES" 

515 FRINT : FRINT TAE 3;"-Maqui 
nas son dispositivos destinados 
a vencer una fuerza llamada ""Re 
sistencia"". mediante la ac 
de otra, llamada ""Fotencia 

520 FRINT : PRINT 

520 PRINT TAB 3 


-Las principal 


"-Lg Palanca." 
-2& Polea fija 


560 PRINT 
129 

570 FRINT ТАВ S. 
580 PRINT TAB 5 
inado.” 


-36 Polea movi 


"-23 Torno." 
-SE Plano incl 


590 PRINT TAB 51 "-5EL Tornillo.” 
600 PRINT TAB 5;"-76 Сима." 
665 PRINT TAB 5;"-8£ PARAR." 


810 PAUSE zx: PRINT АТ 20,03"Pu 
lse el ng de la maquina que “de 
see" 

620 FAUSE 0: IF INKEYS<"1" OR I 
NKEYS>"8" THEN GO TO 620 

630 IF INKEY$="8" THEN CLEAR : 
sTOP 

540 RESTORE 1000+(100#(CODE INK 
EY*-48)) 

700 FEM Maquinas (сада una) 


710 СІЗ : IF INKEY6<>"" THEN © 
о TO 710 

720 READ a$,a 

723 IF THEN во TO вао 

730 FOR s=1 TO a: PRINT АТ 0,5; 
аз 

740 READ b: IF beo THEN GO TO 
765 


745 FOR u=1 TO b: READ m,n 
750 READ b$: PRINT AT m.n;b% 
750 NEXT u: FEAD c,d 

776 IF c=0 THEN GO TO 820 
780-FOR u=1 TO c 

790 READ co,s,y: PLOT INK со,к 


READ х,уз2: DRAW INK coris. 


THEN GO TO B&O 
1 70 d 

READ co,x,v.z: CIRCLE INK 
CO;x.Ysz 


O:"Ley de : "¡as 
LEN c$) 


ND d%(t,z+1 " AND аз, 2+ 
zi? 2)=" " THEN LET zez-1: БО TD 10 
FRINT 80 

1077 NEXT z 

1080 FRINT АТ 7,0:G$ (t) 1AT 7.21" 
Eie 

1090 FAUSE zx: 
1ве una tecla": 


REM Palanca 
1100 DATA "FALANCA",2 

1105 DATA 4,3,3,"-Falanca es una 
maquina constituida por una bar 
ra rigida que se puede girar alr 
ededor de un punto .".1 "B". 
12,5, "R", 16,1, "Existen 3 tipos 
de palancas :" 

1110 DATA 10,1 ,0,52,84,120,0.0 
40,76,84,-8,-8,0 ,0,75.84,8, -8,0 
68,76,16,0,0 ,0,172,84,0,12, 


940 FFINT ТАВ 
› 

950 NEXT s 
9&0 PAUSE zx: 
lse е1 n& del dato que desea obt 
ener" 

970 LET t. 


NKEY 


IF CODE ts<4 


9 OR CODE t$/e«48 THEN GO TO 97 172,84,4,4,0 ,0,172,64.14,4 
$0 ,0,52,84,0,-12,0 ,0,52,89,-4, 
FOR TO e: READ +%(и) rO ,0,52,8414,-4,0 ,0,52,100,1 
NEXT ы: LET t-CODE t9-48 
CLS : PRINT AT O,Sja$ 1115 DATA à,2,2,"-1) PALANCA 18, 
1010 PRINT : PRINT "INTRODUCCION ^ genero:",2,1,"Es aquella en la 
DE DATOS" que el punto de apoyo esta situa 


1020 FOR u=1 TO e do entre la potencia y le resis 
O IF u=t THEN GO TO 1050 tencia." FALANCA Zg gen 
E 9 "за CU) ero aquella en la que 


Miguel Carmona 
en su rincón 
de trabajo. 


la resistencia actua entre el pu 
nta de apoyo y la potencia. ", 14, 
) FALANCA 3& genero: ", 15, 1. 
aquella en 1a que le potenci 
а esta situada entre el punto de 
apoyo y la resistencia." 

20 DATA 0,0. "F5 
1125 DATA "PotencieiF). ". "Erazo 
Potencia (bp). "s "Resistencia (R) " 
ЕШ; resi 
1130 DATA "G 
Ga nr rnt 
Y" " a OH (239374 
1140: 

1150 КЕМ Folea fija 

DATA "POLEA FIJA",2 

DATA 4, "Es una maquina 
constituida por un disco que pue 
de girar sobre un eje fijo y tie 
пе еп su periferia un canal que 
aloja una cuerda." 
1207 DATA 17,12,"R 
ins 

1210 DATA 10,2 ,0,110,80,0,0,0 , 
0,100,80,0,-40,0 ,0,120,80,0,-40 
+0,95,40,10,0,0 ,0,95,40,0,-і 
1,0 ,0,95,50,10,0,0 ,0,105,40,0, 


ЗАДА ДЕН 


1215 DATA 0,110,80,0,20,0 ,0,120 


,40,4,4,0 ,0,120,40,-4,4,0 ,0,11 
0,60,10 .0, 110, Bc 
1220 DATA 1,2,2,"La ventaja de 


la polea fija radica en el hech 
с de que es mae comodo ejercer u 
na fuerza hacia abajo que hacia 
arriba, considerando que puede a 
prevecharse como potencia el pro 
ріс peso de la persona que manip 
ula la maquina.",0,0 

1225 DATA 4,2 

1230 DATA "Fotencia(F).","Resist 
епсїа‹В).","1(2›","1‹1)" 

1240: 

1250 КЕМ Polea movil 

1300.DATA "POLEA MOVIL",2 

1305 DATA 4,2,2,"Ез una maquina 
analoga a la polea fija, con la 
unica diferencia de que el eje d 
e la polea puede moverse en sent 
ido ascendente o descendente. " 
1307 DATA 17,20, "F",20,17, "R^, 1 


515," 
1510 DATA 9,2 ,0,130,70,0 
19.150,70,0,-40,0 ,0,150, 


40,0 


4,0 ,0,150,70,4,-4,0 ,0,1 
,-15,0 

1313 DATA 0,132,17,16,0,0 ,0,132 
,17,0,-%,0 ,0,132,8,16,0,0 ,0,14 


8,17,0,-9,0 ,0,140,30,10 ,0,140, 
30,2 

1315 DATA 4,2,2,"Fara evitar la 
incomodidad que supone el que la 
potencia ses una fuerza ascende 
nte, en general se emplea una co 
mbinacion de | polea movil 

y polea fija, tal como pued apr 
eciarse en la figura" 

1320 DATA 15,21, "P".20,17, "R", 13 


1327 DATA 


‚164.20, 0. 


,20,4,4, -4,4,9 ,0,18 
7,56,0,8,0 

1330 DATA 0,132,17,16,0,0 ,0,132 
117,0,-9.0 ,0,132,8,16,0,0 ,0,14 
8,17,0,-9,0 ,0,140,30,10 ,0,140, 
30,2 ,0,157,56,7 ,0,157,56,2 
1335 DATA "P=R/2",2 

1340 DATA "Potencia(F).","Resist 
encia(R).", "i (2) /2" "i (1)ж2" 
1350: 

1360 REM Torna 

1400 DATA "TORNO", 1 

1405 DATA 7,2,2, "Torno es una ma 
quina constituida por un cilindr 
с que lleva arrollada una cuerda 
У que puede girar sobre su eje 
mediante la accion de una manive 
1a." 


1164, 


1410 DATA 8,19, 
12," 

1415 DATA 29,0 ,0,80,70,90,0,0 , 
0,80,71,70,0,0 ,0,85,80,0,-20,0 
,0,85,80,55,0,0 ,0,85,60,55,0,0 


0, 140, B0, 0, -20,0 . 

1420 DATA 0,150,70,0,30,0 ,0,150 
,100,20,0,0 ,0,150,99,10,0,0 ‚о, 
163,98,0,-26.0 ,0,142,%0,25,0,0 
1425 DATA 0, ies; 98, —: 2,-2, 0,16 
9,98,2,-2,0 ,0,169,72,2,2,0 ,0,1 
89,72,-2,.2.0 ,0,169,68,0,-6,0 ,0 
,169,68,-2,-2,0 ,0,169,68,2,-2, 0 
,0,149,62,2,2,0 ,0,16%,42,-2,2, 
o 

1430 DATA 0,100,80,0,-40,0 ,0,10 
2,80,0,-20,0 ,0,106,80,0,-20,0 , 
0, 109,80,01-20,0 .0,112.82,0,-20 
+0 ,0,115,80,0,-20,0 ,0,118,80,0 
$4720,0 ,0,121,80,0,-20, © ‚90,124, 
80,0,-20,0 

1440 DATA "F/R = ғ1/ғ2",4 

1445 DATA "Potencia(P).","Resist 
encia(R).","radio del cilindro(r 
n. "radio de la manivelaí(r2)." 
1450 DATA "(і (5) жі (2)) 1 (4) ", "(i 
prae 
)"," GOD жі GO) 01)" 

146 

1470 REM Flano inclinado 
1500 DATA "PLANO INCLINADO", 1 
1505 DATA S ,2,2."Flano inclinad 
o es una superficie plana que +o 
rma un angulo con el suelo y se 
utiliza para elevar cuerpos." 
1510 DATA 11,20,"P",15,18,"R".14 
524, "h", 


12,15, "1" 


30,90,0,0 , 
40,90,33,0 


1520 DATA 0,171,40,0,55,0 ,0,80, 
37,110,0,0 ,0,171,75,19,0,0 ,0,8 
0,41,0,19,0 

1525 DATA 0,82.55,86,25,0 ,0,82, 
,0 ,0,82,25,5,3,0 ,0,86,59 
O ,0,158,90,-4,0,0 ,0,168,9 


1530 DATA 0,185 
+41,3,3,0 ,0,185,41, 
5,73,-2 .0,185,73,2,-2,0 
1535 DATA 0,141,71,15,6,0 ,0,140 
15240, -20,0 0,156,771 -3,0,0 ,0, 
155,77,-2,-5,0 ,0,140,49,3,3,0 , 
0,140, 132 


141,0,32,0 ,0,185 
,3,0 ,0,18 


140,70,5 
1540 DATA "F/R = һ/1%,4 


1545 DATA "Potencia(P).", "Resist 
encia(R).","altura(h).","longitu 
ва). 

1550 БАТА "(tiUX)*i(2)7i (4) "," Ci 
(19381 (4))/1 (3), "(1 (1)41 (4))/1 (2 
)","( ($i (3))/31(1)" 

1600 DATA "TORNILLO",2 

1605 БАТА 1,2,0,"Е1 tornillo es 
una maquina cons-tituida por una 
cabez ", sobre la que se арі 
ica la potencia, у una parte cil 
indrica, sobre 1а que se ha t 
allado ип surco de seccion tria 
ngular o cuadrangu-lar, que se d 
enomina ""rosca"" y que describ 
e una espiral." 

1610 DATA 0,0 

1620 DATA 13 ‚7,25, 
12,6, "paso" 

1625 DATA 10,12, "ы 
`" a. Qn. 12,12,"G 
12," G 5",14,12."ссссосоа" 
1630 DATA 8,14 — 
5,"co",11,15,"00",12,15, 


P",8,20, "1", 


1635 DATA 13.16, "R 

1637 DATA 14,1 ,0,128,130,0,-17, 

205,1 130,0,-15,0 ,0,130,125, 

1240 Bata Q,130,125,2,2,0 ¿0,130 

,9,0,205,128,72,2,0 ,0 

БАТЫ 5)88,99,2 +0+80,7 

,0,85,70,0,14,0 ,0,85,7 

= 10:85,79,2,2,0 ,0,85,75 

,-2,-2,0 ,9,85,75,2,-2,0 ,0,294, 
110,4 


1645 DATA "F/R 

1650 DATA "Potencia(F).", "Resist 

encia(R).","longitud llave(1).", 

"paso(p). " 

1655 DATA "(i (2) Ki (49) / CZKFTi (3 

2)","G OOXZEPTE (9/4 QD "010 

ужа (41) / CL) R2XFT) ", G CL AZ 

Isi (3) ) /i (2) " 

1690: 

1695 REM сима 

1700 DATA "CUMA", 2 

1705 DATA 9 ,2,1,"La сица es un 

prisma tiangular construido con 

Un material duro y tenaz, que se 

emplea para rom-per o separar с 

uerpos." 

1710 DATA 12,9,"P",12,13,"R",10, 

4,"A",9,8,"0",10,13,"B",15,9,"P* 

,19,8,"0",12,16,"0% 

1715 DATA 19,0 ,0,40,90,60,0,0 , 

0,40,90,20,-70,0 ,0,100,90,-30,= 

70,0 

1717 DATA 0,70,90,0,-30,0 

80,2,2,0 ,0,70,60,-2,2,0 

1720 DATA 0,70,38,0,-5,0 ,0,70,5 

0,о,-5,0 ,0,70,45,0,-5,0 ,0,70,5 

5,0,-5,0 ,0,70,28,0,-2,0 

1723 рата 0,70,90,50,-15,0 ,0,12 
74,-1,2,0 ,0,120,74,-5,0,0 ,0, 

70,90,-50,-15,0 ,0,20,74,2,0,0 , 


р/‹2кыжі) 


40,70, 


0,20,74,1,3,0 
1730 DATA 2,121,73,-80,-14,0 ,2, 
20,73,50,-14,0 


1750 DATA 16 .1,5," ",2,5,"OF-p 
atenci ",3,5,"GG-resi 
‚ “АВ=саһе 
.8,5, "A 


С=1айо de la cursi” 
755 DATA 12,9,"P",12,13,"R",10, 


...MI ORDENADOR ES SINCLAIR, 
MI SERVICIO TECNICO ES HISSA... 


Y es lo lógico. Si has elegido el mejor Y recuerda que no tendrás sobresaltos 
microordenador del mercado, no vas a con el precio. 


repororlo con cualquiera. “COSTE ESTANDAR POR 
REPARACION” 


Sólo Hissa te puede garantizar 
la utilización de piezas originales SINCLAIR 
y expertos técnicos en reparación. 
=== 


Acude a la delegación 2222 53 más cercana. 
o Enti zq O 


су Universidad, 
17 тен. (96) 
41009 SEVILLA 46002 VALENCIA 


Бі su archivo manual se һа con- 
vertido en un caos, es hora de pa- 
sar a un buen programa de manejo 
de datos. Pero antes de rebuscar en 
la tienda especializada, ¿por qué 
no echar una ojeada a éste que le 
ofrecemos? Es muy sencillo y, so- 
bre todo, muy rígido, ya que está 
preparado para un hipotético “'al- 
macén” con veinte productos y la 
Siguiente información por produc- 
to: descripción del artículo, precio 


venta público. coste, stock, ventas 
айо anterior, y descripción punto 
de pedido. Reducidas dimensio- 
nes, pero buen ejemplo de cómo 
tratar la información en tablas. 

El menü incluye las opciones de 
ALTAS para nuevos datos, BA- 
JAS para anulación de artículos, 
MODIFICACION para cambiar la 
información, CONSULTA con la 
que poder visualizar los artículos, 
GRABAR para guardar las tablas 


de datos. y finalmente METER 
DATOS ANTIGUOS para intro- 
ducir datos previos. 

En su versión original, el progra- 
ma incluye pantalla de carga (pro- 
grama 1), pasando posteriormente 
al programa principal (programa 
2). Por carecer de interés, omiti- 
mos los bytes de la pantalla de car- 
ga. 


Ricardo López 16K 


Programa ! 


10 LOAD "rot. "SCREENS : BORDER 
Or LOAD "ARCHIV 
9999 LOAD "rot. BORDER О: LOAD 
"ARCHIVO" 
Programa 2 

1 CLS : BORDER 7: DIM 1%(1200 
ï LET 19(1)="#": DIM à$ (18) 

2 DIM В# (60): LET B$(&0) 

3 DIM Р%(7): DIM C$(7): LET Z 
өсіп 

6 DIM S*(8): DIM V$(8): DIM T 
* (8) 


7 РОКЕ 23609,50: РОКЕ 23658,8 
10 CLS : PRINT АТ 4,11; "МЕ 


NU "r PRINT АТ 5,11;" = ` 
30 PRINT AT 8,9;"1.— ALTAS" 
40 PRINT AT 10,9:"2.- BAJAS" 
SO PRINT AT 12,9,"3.- MODIFI 

CACION" 

60 PRINT АТ 19,934. = CONSUL 

TA" 

65 PRINT АТ 16,9;"5.- GRABAR 
67 PRINT АТ 18,9;"6.- METER 

DATOS " 

АВ PRINT AT 19,93" ANTIGUOS" 
69 PLOT 0,0: DRAW 255,0: DRAW 

0,165: DRAN -255,0: DRAW 0,-165: 

PLOT 2.2: DRAW 249,0: DRAW 0,12 


DRAW -249, 


: DRAW 0,-122 


ESCUCHA ENANO Mj 
NUEVO SINTETIZADOR 


ВО IF INKEY: THEN GO TO 2 
оо 

90 IF INKEY: THEN GO TO 3 
оо 

100 IF INKEY$-"Z" THEN GO TO 4 
оо 

110 IF INKEY$="4" THEN GO TO 5 
оо 

112 IF INKEY$="5" THEN GO TO 2 
ооо 

113 IF THEN GO TO 2 
ооо 

115 GO ТО 

200 CLS : "ALTAS" 
+ PRINT AT PAUSE 
35: CLS 

225 PRINT 


CUANDO YA NO а 
DATOS INTRODUZ 
ARTICULO": PLO 
D 


UIERA METER MAS 
Са UNA м EN EL 
Т 0,55: DRAW 250,0: DRAW 0,40: 
RAW -250,0: DRAW 0,-40 

230 PRINT AT 5,8; "INTRODUZCA 
1 INPUT AT 5,12; "ARTICULO :";A$ 


IF A$="N " THEN 
GO TO 10 

231 INPUT 

232 INPUT OSTE ";C$ 
254 INPUT TOCK EN ALM 

AC. ";5% 

235 INPUT АТ 5,12; "УЕМТАБ ANO А 

NT. ";VS 


236 INPUT АТ 5,12; PUNTO DE PED 


IDO ";T$ 

238 LET L$-AS«ZS«PS«C&«GS-Ue «TS 
239 LET L-LEN L$ 

240 FOR 1=0 TO 1200 STEP &0 
250 LET &-I: IF 1-0 THEN LET А 
E 

254 IF I-1200 THEN 60 TO 265 
255 IF I$(A TO A+2)="x " THEN 
G0 TO 260 

256 60 TO 265 


260 LET L$=L$+B$(1+L TO 60): LE 
T L$(60)="#": LET I$(A+1 TO I+60 
LET 18(1+60)="#": LET L$=" 
GO TO 279 

265 IF 1=1200 THEN CLS : PRINT 
"NO LE QUEDA SITIO PARA METER D 
ATOS . FARA MENU FULSE CUALQUIER 
PAUSE О: 60 TO 10 

NEXT I 

GO TO 250 

CLS : PRINT AT 
PRINT АТ 10,12 
PRINT AT 12,04 
AT 15, 
MERO DE ARTICULO А 
PARA IR à MENU : 
335 PRINT 

340 INPUT TAB (12);"NUMERD DE А 
RT. "ux 


TECLA": 
270 


12; "BAJAS" 


INTRODUCE NU 
DAR DE BAJA. 
INTRODUCE О 


350 IF X=0 THEN GO ТО 10 
355 IF X=1 THEN (ЕТ 1$(Xx60-58 
TO XK60-1)e""z GO TO 340 

360 LET 19(Х%60-59 TO Хж60-1)=) 
370 G0 TO 340 

400-CLS : PRINT AT-5, 10; "MODIFI 


CACION": PLOT 0,90: DRAW 255,0: 
INPUT ;"NUMERO DE ARTICULO А MOD 
IFICAR .(PARA SALIR 0) : ";V: IF 
V=0 THEN 50 TO 10 


405 IF U=1 THEN 
-58 TO VK60-1) 
407 IF V=1 THEN GO TO 410 

408 LET K$-I$(V&60-59 TO VX60-1 
à 

410 CLS : PRINT AT 4,3;"QUE DES 
EA MODIFICAR ": PLOT 15,150: DRA 
w 230,0 

415 PRINT AT 8,65"1.-ARTICULO"; 
AT 9,6;"2.-P.V.P";AT 10,6;"3.-CO 
STE";AT 11,6; '4.-STOCK EN ALMACE 
N";AT 12,6:"5. -VENTAS АМО ANTERI 
OR";AT 13,6;"6.-PUNTO DE PEDIDO" 
з PLOT 15,55: DRAW 230,0: DRAW O 
,85і DRAW -230,0: DRAW O,-65 
418 PRINT АТ 17,3;"Mete numero 


LET K$=1%(V%60, 


correspondiente, si no deseas 
modificar таз pülsa O y ЕМ 
TER INPUT W 

421 IF W=0 THEN GO ТО 400 


825 IF W=1 THEN LET №1: LET W 
=18 
424 IF W=2 THEN LET М=21: LET 
W=27 


425 IF W=3 THEN LET LET 
W=34 
426 IF W=4 THEN LET LET 
W=42 


427 IF W=5 THEN LET 
-50 

428 IF М=& THEN LET 
w=58 

430 LET M$=K$(N TO W) 
435 CLS : PRINT АТ 19,8;"- DATO 
ANTIGUO "¿Ms 

436 INPUT АТ 2,8;"- DATO NUEVO 
47% 

440 IF V=1 THEN LET 1%((60%У-5 
9)+N TO (604V-59) +0) =T% 

445 IF V=1 THEN БП TO 410 

448 LET 19( (604V-60)+N TO (604V 
-60) +W) =T% 

450 GO TO 410 

500 CLS : PRINT AT 2,12;"CONSUL 
TA": PRINT AT 3,12 wy P. 
RINT AT 5,0 


LET 


LET 


STEF 60 
THEN LET а 


525 IF А=1200 THEN FRINT : INP 


FLASH 1;" AMPLIAR I 
FLASH 03" DE UN AR 

T. PULSA SU NUMERO Y ENTER ; SI 

NO,PULSE © "s FLASH бү: GO T 

0 5000 

540 IF I$(A TO 1+2)=" — " THEN 

GO TO &20 

545 LET L$-I$(A TO A+60) 

560 FOR TO &0 

370 IF (Р ТО P^1)«2" ” THEN 

GO TO 610 

575 IF I$(A TO +2) =" " THEN 

GO TO 620 

580 PRINT "Art: ";I$(R TO A+P-1 

);TAB (25); "NUM. "5 (1+1/60): GO 


TO 620 


MICROS 


P.V.P. 
cosTE 

STOCK EN ALMAC. 
VENTA АМО ANT. 
PUNTO DE PEDIDO 


45000 
25000 
200000 
45000 
DEALERS 


PARA VER MAS ARTICULOS PULSE 
NUM. CORRESPOND. ,SI NO О 


610 NEXT P 
620 NEXT 1 
2000 CLS : PRINT AT 11,55" 

E PUEDE GRAB 
AR CUANDO LO DESEE. PULSE G РА 
RA GRABAR O S PARA SALIR AL M 


ENU": PLOT 0,85: DRAW 250,0: DRA 
М 0,-35: DRAW -250,0: DRAW 0,35 
2920 IF INKEY$="G" OR INKEYS: 
THEN 60 TO 2050 

2025 IF INKEYS-"S" OR INKEY$-"s" 
THEN GO TO 10 

2050 GO TB 2020 

2050 CLS : SAVE "DATOS" DATA 1%‹ 
) 

2050 CLS : FLASH 1: PRINT АТ 10, 
Бі"УА ESTA GRABADO": FLASH O: PR 
INT AT 12,2; "FARA VERIFICAR CAMB 
IE CLAVIJAS Y PULSE V" 

2070 IF INKEYS-"V" OR INKEYS-"v" 
THEN GO TO 2085 

2080 GO TO 2070 

2085 CLS : PRINT АТ 12,2;"SI POR 
CUALQUIER MOTIVO,DESEA SALIR 


DEL VERIFY PULSE RREAK Ү CUAN 
DO ESTE PARADO ,NUNCA RUN ,U 
TILIZE EL GOTO 10": PLOT 5,40: D 
RAW 250,0: DRAW 0,47: DRAW -250, 
оз DRAW 0,-47 

2090 VERIFY "DATOS" DATA 15() 
2100 60 TO 10 

3000 CLS : PRINT АТ 11,5;" 


PUEDE MET 
ER CUANDO LO DESEE. PULSE МР 
ARA METER 0 S FARA SALIR AL 


MENQ": PLOT 0,85: DRAW 250,0: DR 
AW 0,-55: DRAW -250,0: DRAW 0,55 
3020 IF INKEYS="M" DÉ INKEY$="m" 
THEN 60 TO 3050 

3025 IF INKEYS="S" OR INKEY$="s" 
THEN 60 TO 3040 

3030 GQ TO 3020 

3040 GO TO 10 

3050 CLS : PRINT AT 11,5; "INRODU 


ZCà CLAVIJAS EN EAR 
Y PULSE PLAY.": LORD "DATOS" рат 
A 1$0 


3060 CLS : FLASH i: PRINT AT 10, 
98," ҮА ESTA METIDO ": FLASH О: P 
RINT AT 16,3; "PARA MENU PULSE CU 


ALQUIER TECLA": PAUSE O 
3070 60.70 10 
5000 CLS : IF Y-O THEN GQ.TO 10 


5002 IF Y<>1 THEN GO TO 5008 
5004 LET M-YtéO-58: LET К=М+1В: 
60 TO 5010 

5008 LET M=Yk60-5 
5010 PRINT АТ 5,3 
" TO K) 

5020 PRINT АТ 7,04" 


LET К=М+19 
ART. ";Y,IS( 


5030 PRINT АТ 10,3;"P.V.F.";TAB 
(23); I$(M*20 TO M+26);AT 11,3 
OSTE";TAB (22);14(М%27 TO M+33) 

5040 PRINT AT 12,3; "STOCK EN ALM 
AC."¿TAB (23); I$(M*34 TO M+41): 

PRINT AT 13,3; "VENTA ANO ANT.";T 
AB (23); 1$(M+42 TO M+49): PRINT 
AT 14,5; "PUNTO DE PEDIDO";TAB (2 
3)¡1$(M+50 TO М+57): PLOT 10,48: 
DRAW 245,0: DRAW 0,55: DRAW -24 
5,0: DRAW 0,-55 

5050 PRINT АТ 18,2; "РАКА VER MAS 
ARTICULOS PULSE МОМ. CORRESP 
OND.,SI ма о" 

5052 IF INKEYS: 


THEN 60 TO 50 


52 

5055 IF ІМКЕҮФ<2"0" THEN GO TO 
5070 

5065 GO TO 10 

5070 CLS : INFUT AT 15,5;"NRO. D 
E ART. ";Y: GO TO 5000 


x 


ANUNCIESE 


por 


MODULOS 


MADRID 
91) 73396 62 


BARCELONA 
93) 3014700 


Un poco de 
CódigoMáquina 


Muchas calculadoras de bolsillo 
incorporan la función factorial 
(marcado normalmente como x!). 
El factorial de un númcro x, se de- 
fine de la siguiente forma: x! (leído 
como x factorial), es igual al nüme- 
ro de las distintas combinaciones 
que se pueden realizar con x obje- 
tos. Por ejemplo, si tiene 4 libros 
en una estantería, puede colocar- 
los de veinticuatro formas diferen- 
tes (4! = 24). 

боп muchas las aplicaciones de 
los factoriales en el campo de la 
matemática pura. Uno de los prin- 
cipales usos es en el cálculo de se- 


ries infinitas para ampliar distintas 
funciones. 

Aunque incorporados en mu- 
chas calculadoras, es una función 
que rara vez encontrará en un mi- 
croordenador. Con la pequeña ru- 
tina que le ofrecemos a continua- 
ción, su Spectrum ya no tendrá 
que envidiar a la más completa 
calculadora. Aunque la función 
factorial no se utiliza con tanta fre- 
cuencia como otras (seno, raíz cua- 
drada, etc.), su ventaja estriba en la 
posibilidad de realizar iteraciones 
de series infinitas para lograr mejo- 
res aproximaciones en los cálculos 


de las diferentes funciones con que 
trabaje. 

La forma en que se calcula el 
factorial se puede resumir de la si- 
guiente forma: Se toma un número 
y se multiplica por.ese mismo nú- 
mero menos uno, despues por éste 
menos uno y así sucesivamente 
hasta llegar al número uno. Por si 
las matemáticas no son su fuerte, 
veamos un par de ejemplos: 

41=4х3х2х1=24 

61=6х5х4х3х2х1=270 

El factorial де І es 1. Pero el fac- 
torial de O también es 1. Sólo hay 


una forma de ordenar ningún obje- 
to, al igual que sólo һау una forma 
de ordenar un objeto. El método es 
sencillo en términos de programa- 
ción, y sólo requiere una linea en 
BASIC: 


LET FACT =1: FOR F=1 TO 
X : LET FACT.= FACT x F `: 
NEXT F 


que funciona bastante bien siem- 
pre que no desee obtener el facto- 
rial de un nümero alto, digamos 
por encima de 5. La obtención del 
factorial de 30 ya puede ser “ехсе- 
sivo” para el BASIC de Sinclair. Si 
lo coloca como una subrutina ha- 
brá de incorporar la instrucción 
RETURN lo que ocasionará un 
mayor retardo en la respuesta. 
Respuesta que, en términos de ve- 
locidad, viene siempre de la mano 
salvadora del código máquina. 
Para mayor precisión, de los 142 


insignificantes bytes que requiere 
esta rutina. 

¿Dónde almacenar esta rutina? 
Se puede elegir una zona de me- 
moria protegida o situarla dentro 
de la esfera de acción del processor 
interrupts o interrupciones del 
procesador con lo que la rutina se- 
ría llamada 50 veces por segundo. 
Por el momento, para no compli- 
car el tema. y dada la reducida lon- 
puede colocarla 
n alta (la instruc- 
ción permite introducir la direc- 
ción donde se desea colocar la ruti- 
na). 

Para utilizar la nucva función 
factorial incorporada a su Spec- 
trum (una vez cargado y ejecutado 
este programa), introduzca en la 
variable "x" el valor del que desea 
obtener el factorial (línea 310). 
Después sólo tiene que llamar a la 
subrutina, de acuerdo a la direc- 
ción donde la ubicó: 


RANDOMIZE USR comienzo di- 
rección 


obteniéndose el valor factorial de 
“х” en la variable “fact”. 

Como podrá comprobar, no sólo 
funciona sino que se obtiene el re- 
sultado de forma casi instantánea. 
Sólo hay que tener en cuenta ini- 
cializar previamente la variable 
“fact” antes de llamar a la subruti- 
па. De otra forma se produciría el 
mensaje “Variable not found” 
como ocurriría con cualquier otra 
variable en BASIC. Recuerde: 


LET fact=0 


Finalmente le damos dos expre- 
siones matemáticas típicas que re- 
quieren este tipo de cálculo. La 
fórmula de MacLaurin se utiliza 
para trabajar con funciones sim- 
ples, y la expresión binomial nor- 
malmente sirve para trabajar con 
funciones del tipo (1 + х)". 


Maclaurin's Expansion: 


SEEN Ox Ж 


E 7! 


+(=1)"x"+' + 
(2n+D1 


f(x) = 00) + F(0)x + (Ох... 
2! 


Sinx2 x —x * x'i-x +... 


2! 


(1+x)*= 


3! 


e'=+x+xX+xX+... 


LEI 
3! r! 


General Binomial Expansion: 


1+пх+п(п—1)х?'+ 


2! 


n(n—1)(n—2)€ | 


+п(п—1)(п—2).....(п—г+1)х'+... 


т! 


Y en el próximo número... 


7332319) 


CONTROL STOCKS, para controlar la situación. 


КОШЕ messes E 


Де 
eod AULA INFORMATICA CON SPECTRUM, y con el Logo. 


QL-DIVERSION. Análisis del Easel y primer QL-listado. 


« 
= SPECTRUM PARLANCHIN, rutina que hace hablar а! ordenador. 


[Р]ме gustaría que те explicaseis 
cómo habéis dibujado la portada 
de vuestro número 3 con el GIZ- 
MO, y especialmente cómo habéis 
logrado el color marrón e interca- 
larlo con el negro. 

Por otro lado, os quisiera pre- 
guntar a qué se refiere е1 manual 
cuando dice que si se alteran algu- 
nas variables del sistema mediante 
POKE éste queda alterado produ- 
ciendo efectos perjudiciales. ¿Se 
daña irreparablemente con esto al 
Spectrum? ¿Se daña sólo el progra- 
ma quc cstá cn mcmoria? ¿Sc daña 
sólo hasta que se desconecta de la 
red? 

J.M. Martínez 
Cádiz 


[s] Varias personas nos han pre- 
guntado cómo hemos logrado el 
color marrón en esa portada, y 
también otros tonos poco habitua- 
les. La respuesta es: iNo lo sabe- 
mos! Son los famosos “duendes de 
la imprenta" los que hacen que los 
colores no respondan muchas ve- 
ces a la fotografía original. En este 
caso el efecto fue muy conseguido, 
otras veces no tanto. En fin, en la 
pantalla originalel color era rojo. 

Las variables del sistema a que 
se refiere el manual son esenciales 
para el buen funcionamiento de la 
máquina. Cuando se dice que su 
alteración daña al sistema se refie- 
re a que pueden “colgar” (alterar 
el funcionamiento) el sistema ope- 
rativo del Spectrum. En cualquier 
caso, su efecto no durará más que 
hasta que hagamos RANDOMI- 
ZE USR 0 o desconectemos la co- 
rriente. Lo que sí pueden causar es 
la pérdida del programa o los da- 
108 que estuviéramos ejecutando. 
Así que, si queréis hacer experi- 
mentos, salvad antes en cassette 
vuestro programa. No se puede 
causar ningún daño permanente 
al Spectrum usando el teclado. Sí 
se puede estropear si conectamos о 
desconectamos algún periférico 
con la alimentación conectada. 


[тезро una impresora Ѕеікоѕћа 
GP-50S y he observado lo mucho 
que distorsiona la imagen alargán- 


dola. Desearía que me constesta- 
Seis si esto es normal o ез ип fallo 
propio de mi máquina. Adjunto 
listado e impresión, en la que mar- 
co en trazo discontinuo el dibujo 
de una circunferencia hecha con 
un compas, donde se advierte la 
distorsión producida y las dimen- 
siones del recuadro para guardar 
las mismás proporciones que el di- 
bujo que aparece en la pantalla de 
televisión. 
Clifford Wait 
Cádiz 


ІШТЕ su pregunta а Di- 
rak, distribuidores de las impreso- 
ras Seikosha, quienes pasan a con- 
testarle: 

"Normalmente casi todas las 
impresoras, poseen un ratio de 
proporción de los puntos, que pro- 
voca un редиейо desfase entre el 
dibujo de pantalla y el obtenido 
por COPY en la impresora. 

Nos remitimos al manual de la 
impresora, sección de característi- 
cas (pág. 8, apartado 1-F) donde 
dice que el espaciado entre puntos 
es 1/84 (horizontal) * 1/72 (verti- 
cal). Todo esto implica que, para 
corregir el ratio en el ejemplo que 
nos muestra, tendrá que realizar el 
siguiente programa: 


LET ri 
28: LET c. 
TO 2*FI STEP „01 


su 


FLOT El+r cos 
NEXT x 


аме 


El corcho 


SE VENDE ZX Spectrum 48 K con 
танар comerciales uegos Y 
Оаза), a curenar, n 

Шише con la fecha en blane 
197000 Impresora GPSOS con 12 
о de papel, a estrenar, garantia en 
Planeo 2.300, TU BM 12" ELBE 
Med 1213: 9000. Urge mucho. José 
Rafael Diaz. Antonio Maura, 36, 2 
der. Oviedo, Tino. 253793. 


VENDO Spectrum 48 K (4 
meses de uso, garantía), impre- 
sora Seikosha GP100 (profesio- 
nal), _ interface Centronics 
RS232, programas de contabi- 
lidad y declaración renta y cin- 
со juegos originales. Dos li- 
bros de Spectrum, 15 números 
dela revista ZX y varios de TO- 
DOSPECTRUM, así como las 
mejores inglesas. Además, pó* 
liza de seguro a todo riesgo (ro- 
bo, incendio, averías, manej 
inadecuado, defecto _ fábri 
ca...). Todo por 89.000 ptas. 
Precio de coste superior a las 
120.000 ptas. Santiago de 
Biedma. Virgen de los Rosales, 
12, Madrid 28023. 


CAMBIO Transceptor 40 ca- 
nales, 2 antenas (móvil y Bal 

conera), medidor de estaci 

arias y potencia, cables, li- 
bros, revistas por Interface 1, 
con microdrive o por Impre- 
sora Seikosha СР50$ o ver 

do por 21.000 pts. Intereia- 
dos llamar al 4378285 de Viz- 
сауа, preguntar por Guiller- 
то. Sc estudiarán otras ofer- 


La versión española de Popular Computing 


1 LA REVISTA QUE INTERESA TANTO AL AFICIONADO COMO AL PROFESIONAL 
м 


Опа publicación que 
informa con amenidad 
acerca de las novedades 
en el campo de las 
computadoras personales. 
ORDENADOR POPULAR, 
la revista para el 
aficionado a la 
informática. 

Ya está a la venta ў 
AA =. 


Cómprela en su kiosco habitual o solicítela а: 


== > Ç. . 2296 " 
= = LA L. - 28020- MADRID 


SINCLAIR STORE, te ofrece la colección de cintas ООР. 
LO MAS POTENTE PARA SU SPECTRUM 


Con ellas podrás obtener un mayor rendimiento de tu ordenador personal. 
бі айп no las conoces, solicita una demostración, sin compromiso, 
en tu boutique informática SINCLAIR STORE más próxima. 
iQuedarás sorprendido! 


3 M PUBLICIDAD. 


FULL SCREEN 
нж TOR /ASSEMAL 


- Salida de lodos las jugadas o 

reso = Encontrar y comblar conjuntos de 
= Opción de demostción 9 

Мо on рэта пора do топос 

gráfica - liberanco lo memorio 


= input /editor de tato de рота com- O més de 1500 nombres necs] FICHA, DE TRANSACCIONES, NUEVAS 


рж de 42 оошмо. эд, un micos, poe wawa dos 
кают y asiaa de толей - háce miye ` ides pe etico rusos. 
a paria, meam y/o жаа ошто pem lo бейсен = Gebe DE PAGINA poo Que œ 
7 олю cdd de osem 1000 жал œe шоу samoa pom un lados ls arios, оо a ү 
безу) ото кке. 
Тіліп corpas тош œn Per. CONCA moro R: 
МЕ Ai ло nar ооло ту тош. alos. meormdos eñ los 
А corpo eers 780 SA қаса [PME 
E a отө "acr œ тілге número œ Oye 
Сороки aola de anas y edo Isern este programa - PRESENTACION COMPLETA EN PANTA lor m m paywa 
orm ien өс = moy po - Sold о mpeson- роп трати 
suum roue кезде 
En cmo отт y char босоод VELOCIDAD ` este programa es ma - Combi одо combo o оу superar 
- колко Assaber DEFA, DEFS imprime s aos de кобі Өс mapan ре о lcg nir y cewe 
бен. DE бен EX, two Оно ET el тодо amas М oo Отко 
- Valamon œ experts setos осоо d cies por yos Ооң 
parèniesis colocodos dentro de otros. tomatos: 0 su elección Еп todas las cintas, existe la "VERSION PLUS 84 
MENO GO, padres logas En el ao: odministociin de mitos œ (80 columnas, compatibles con interface centronic KEMPSTON). 


Na saka: jasa ер jo especial de 2.000 ptas. cada ung) 
- мон copar e imprimir en us m AERE TO раз o 0) a 
= Sooejnonre c» momo de 6 ; 


3 ene Interés en омрю cimo reot 


обл on 16k. - = K... = 
арата род aite pag 
с ЖАЛАУ => m — 
мала) сус. 50М05 PROFESIONALES y7 4 
Ve conti cm un ск rem. Fares pain ooo promo œ 
Gn pem дэ өтти атро, Еа 
rl lee mod gosse redd BRAVO MURILLO, 2 (aparc. gratuito en C/. Magallanes, 1). Te.: 446 62 31 


толеп Юс! утро. тоо. DIEGO DE LEON, 25 (aparc. gratuito en C/. Núñez de Balboa, 114). Tel: 261 88 01 MADRID 


